<?xml version="1.0" encoding="Windows-1252" ?>
<?xml-stylesheet type="text/xsl" href="FormatMzToolsXml.xsl" ?>
<Project>
	<Name>NetViewDev</Name>
	<FileName>NetView.MDB</FileName>
	<PathFileName>C:\CodePlexSources\AccessNetView\NetView\NetView.MDB</PathFileName>
	<BuildFileName>NetView.DLL</BuildFileName>
	<BuildPathFileName>C:\CodePlexSources\AccessNetView\NetView\NetView.DLL</BuildPathFileName>
	<Description/>
	<HelpContextID>0</HelpContextID>
	<HelpFile/>
	<Type>Host Project</Type>
	<References>
		<Reference>
			<Name>VBA</Name>
			<FileName>vbe6.dll</FileName>
			<PathFileName>c:\programme\gemeinsame dateien\microsoft shared\vba\vba6\vbe6.dll</PathFileName>
			<Description>Visual Basic For Applications</Description>
			<BuiltIn>True</BuiltIn>
			<Guid>{000204EF-0000-0000-C000-000000000046}</Guid>
			<Major>4</Major>
			<Minor>0</Minor>
			<Type>TypeLib</Type>
		</Reference>
		<Reference>
			<Name>Access</Name>
			<FileName>msacc.olb</FileName>
			<PathFileName>c:\programme\microsoft office\office11\msacc.olb</PathFileName>
			<Description>Microsoft Access 11.0 Object Library</Description>
			<BuiltIn>True</BuiltIn>
			<Guid>{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}</Guid>
			<Major>9</Major>
			<Minor>0</Minor>
			<Type>TypeLib</Type>
		</Reference>
		<Reference>
			<Name>stdole</Name>
			<FileName>stdole2.tlb</FileName>
			<PathFileName>c:\windows\system32\stdole2.tlb</PathFileName>
			<Description>OLE Automation</Description>
			<BuiltIn>False</BuiltIn>
			<Guid>{00020430-0000-0000-C000-000000000046}</Guid>
			<Major>2</Major>
			<Minor>0</Minor>
			<Type>TypeLib</Type>
		</Reference>
		<Reference>
			<Name>SimplyVBUnit</Name>
			<FileName>simplyvbunit.dll</FileName>
			<PathFileName>c:\programme\simplyvbunit 3.0\simplyvbunit.dll</PathFileName>
			<Description>SimplyVBUnit Framework v3.0</Description>
			<BuiltIn>False</BuiltIn>
			<Guid>{AD061B4A-38BF-4847-BA00-0B2F9D60C3FB}</Guid>
			<Major>7</Major>
			<Minor>0</Minor>
			<Type>TypeLib</Type>
		</Reference>
		<Reference>
			<Name>AccUnit_Integration</Name>
			<FileName>accunit.integration.tlb</FileName>
			<PathFileName>c:\programme\access-codelib.net\accunit\accunit.integration.tlb</PathFileName>
			<Description>AccUnit Access/VBA TestSuite</Description>
			<BuiltIn>False</BuiltIn>
			<Guid>{4D92B0E4-E59B-4DD5-8B52-B1AEF82B8941}</Guid>
			<Major>0</Major>
			<Minor>9</Minor>
			<Type>TypeLib</Type>
		</Reference>
		<Reference>
			<Name>DAO</Name>
			<FileName>dao360.dll</FileName>
			<PathFileName>c:\programme\gemeinsame dateien\microsoft shared\dao\dao360.dll</PathFileName>
			<Description>Microsoft DAO 3.6 Object Library</Description>
			<BuiltIn>False</BuiltIn>
			<Guid>{00025E01-0000-0000-C000-000000000046}</Guid>
			<Major>5</Major>
			<Minor>0</Minor>
			<Type>TypeLib</Type>
		</Reference>
		<Reference>
			<Name>TLI</Name>
			<FileName>tlbinf32.dll</FileName>
			<PathFileName>c:\windows\system32\tlbinf32.dll</PathFileName>
			<Description>TypeLib Information</Description>
			<BuiltIn>False</BuiltIn>
			<Guid>{8B217740-717D-11CE-AB5B-D41203C10000}</Guid>
			<Major>1</Major>
			<Minor>0</Minor>
			<Type>TypeLib</Type>
		</Reference>
	</References>
	<Files>
		<File>
			<Name>zTST_NetViewEvents</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_NetViewEvents</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>13</CountOfDeclarationLines>
				<CountOfLines>146</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MovingAnItemAround_RaisesItemMovedSizedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MovingAnItemAround_RaisesItemMovedSizedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MovingAnItemAround_RaisesMovedSizedEventOnItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MovingAnItemAround_RaisesMovedSizedEventOnItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingOnAnItem_RaisesItemClickedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Event: Item.Clicked, NetView.ItemClicked ___</CommentLine>
						</CommentLines>
						<Declaration>Public Sub ClickingOnAnItem_RaisesItemClickedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingOnAnItem_RaisesClickedEventOnItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingOnAnItem_RaisesClickedEventOnItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingOnAReadonlyItem_RaisesItemClickedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingOnAReadonlyItem_RaisesItemClickedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingOnAReadonlyItem_RaisesClickedEventOnItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingOnAReadonlyItem_RaisesClickedEventOnItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClickingOnAnItem_RaisesItemDoubleClickedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Event: Item.DoubleClicked, NetView.ItemDoubleClicked ___</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DoubleClickingOnAnItem_RaisesItemDoubleClickedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClickingOnAnItem_RaisesDoubleClickedEventOnItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DoubleClickingOnAnItem_RaisesDoubleClickedEventOnItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClickingOnAReadonlyItem_RaisesItemDoubleClickedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DoubleClickingOnAReadonlyItem_RaisesItemDoubleClickedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClickingOnAReadonlyItem_RaisesDoubleClickedEventOnItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DoubleClickingOnAReadonlyItem_RaisesDoubleClickedEventOnItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheBackground_RaisesBackgroundClickedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
							<CommentLine> Act</CommentLine>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheBackground_RaisesBackgroundClickedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClickingInTheBackground_RaisesBackgroundDoubleClickedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
							<CommentLine> Act</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DoubleClickingInTheBackground_RaisesBackgroundDoubleClickedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MovingMouseFromItemToNetView_ResetsMousePointer</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MovingMouseFromItemToNetView_ResetsMousePointer()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ChangingTheOrientation_RaisesOrientationChangedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ChangingTheOrientation_RaisesOrientationChangedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ChangingTheWorldDefinitionArea_RaisesWorldDefinitionAreaChangedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ChangingTheWorldDefinitionArea_RaisesWorldDefinitionAreaChangedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__NetViewFactoryMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__NetViewFactoryMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>130</CountOfLines>
				<Interfaces>
					<Interface>NV__Factory</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Self() As zTST__NetViewFactoryMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__NetViewFactoryMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>LatestItem</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get LatestItem() As NV_Item</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ReturnsItems</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ReturnsItems(ParamArray Items())</Declaration>
						<Parameters>
							<Parameter>
								<Name>Items()</Name>
								<Type/>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>True</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_CoordinatePresenter</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_CoordinatePresenter() As NV_CoordinatePresenter</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_CoordinatePresenter</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_DataBinder</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_DataBinder() As NV_DataBinder</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DataBinder</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_DefaultManipulationKindProvider</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_DefaultManipulationKindProvider() As NV_DefaultManipulationKindProvider</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DefaultManipulationKindProvider</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_DefaultPlacementPolicy</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_DefaultPlacementPolicy() As NV_DefaultPlacementPolicy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DefaultPlacementPolicy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_DeviceWorldTransformerFactory</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_DeviceWorldTransformerFactory() As NV_DeviceWorldTransformerFactory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceWorldTransformerFactory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_Item</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_Item() As NV_Item</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_ItemFormatter</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_ItemFormatter() As NV_ItemFormatter</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_ItemFormatter</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_LabelManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_LabelManager() As NV_LabelManager</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_LabelManager</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_DeviceRectangle</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_DeviceRectangle() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_DefaultDragSizeStrategy</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_DefaultDragSizeStrategy() As NV_DefaultDragSizeStrategy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DefaultDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_MappingParams</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_MappingParams() As NV_MappingParams</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MappingParams</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_MousePointerTool</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_MousePointerTool() As NV_MousePointerTool</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MousePointerTool</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_NullDragSizeStrategy</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_NullDragSizeStrategy() As NV_NullDragSizeStrategy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_NullDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_GridDragSizeStrategy</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_GridDragSizeStrategy(Optional ByVal Spacing As Long = 500&amp;, Optional ByVal Offset As Long = 0) As NV_GridDragSizeStrategy</Declaration>
						<Parameters>
							<Parameter>
								<Name>Spacing</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>500&amp;</DefaultValue>
							</Parameter>
							<Parameter>
								<Name>Offset</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>0</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>NV_GridDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_ParentGetter</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_ParentGetter() As Variant</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Variant</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_Point</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_Point(ByVal X As Long, ByVal Y As Long) As NV_DevicePoint</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DevicePoint</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_WorldPosExt</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_WorldPosExt(ByVal Position As Double, ByVal Extent As Double) As NV_WorldPosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_WorldRectangle</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_WorldRectangle(ByVal Value As Double, ByVal Extent1 As Double, ByVal Position2 As Double, ByVal Extent2 As Double) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent1</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Position2</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_WorldRectangleFromPosExts</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_WorldRectangleFromPosExts(ByVal ValueAxis As NV_WorldPosExt, ByVal Position2Axis As NV_WorldPosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>ValueAxis</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Position2Axis</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV__Factory_BindingInfo</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV__Factory_BindingInfo(ByVal FieldName As String) As NV_BindingInfo</Declaration>
						<Parameters>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_BindingInfo</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>PG_Facade</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>PG_Facade</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>19</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Create</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Create() As PG_Factory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>PG_Factory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>EnsureSetUp</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub EnsureSetUp()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_E2EDatabinding</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_E2EDatabinding</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>359</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>21</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>HorizontalTimeStream_WithTwoLanes</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>56</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Tags(&quot;wip&quot;)</CommentLine>
							<CommentLine> AccUnit:Ignore(&quot;This is just an appetizer. It will not work exactly like this.&quot;)</CommentLine>
						</CommentLines>
						<Declaration>Public Sub HorizontalTimeStream_WithTwoLanes()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NoExistingItem_SingleItemInRecordSource_ResultsInOneItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub NoExistingItem_SingleItemInRecordSource_ResultsInOneItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ExistingItem_NoItemInRecordSource_MaintainsTheItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ExistingItem_NoItemInRecordSource_MaintainsTheItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ExistingItem_SameItemInRecordSource_LeavesThatItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ExistingItem_SameItemInRecordSource_LeavesThatItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ExistingItem_AdditionalItemInRecordSource_AppendsTheNewItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ExistingItem_AdditionalItemInRecordSource_AppendsTheNewItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ExistingItem_OtherItemInRecordSource_AppendsTheNewItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ExistingItem_OtherItemInRecordSource_AppendsTheNewItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TwoExistingItems_BothInRecordSource_LeaveTheItems</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TwoExistingItems_BothInRecordSource_LeaveTheItems()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TwoExistingItems_JustOneItemInRecordSource_LeaveTheItems</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TwoExistingItems_JustOneItemInRecordSource_LeaveTheItems()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_CalledAgainWhenAllLabelsAreConsumed_DoesNotRaiseAnError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind_CalledAgainWhenAllLabelsAreConsumed_DoesNotRaiseAnError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithDataBindingForBusinessIdFieldSet_CreatesAProperlyBoundItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Put this test into a cluster regarding binding individual fields</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithDataBindingForBusinessIdFieldSet_CreatesAProperlyBoundItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithDataBindingForItemTextSet_CreatesAProperlyBoundItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Put this test into a cluster regarding binding individual fields</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithDataBindingForItemTextSet_CreatesAProperlyBoundItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithDataBindingForItemTipTextSet_CreatesAProperlyBoundItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Put this test into a cluster regarding binding individual fields</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithDataBindingForItemTipTextSet_CreatesAProperlyBoundItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithDataBindingForBackColorSet_CreatesAProperlyBoundItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Put this test into a cluster regarding binding individual fields</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithDataBindingForBackColorSet_CreatesAProperlyBoundItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithPlacementPolicyInPlace_CallsItOnEachNewItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>35</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: move this to DataBinder tests</CommentLine>
							<CommentLine>Public Sub DataBindings_SettingWithFieldName_CanBeReadBack()</CommentLine>
							<CommentLine>   Dim Actual As String</CommentLine>
							<CommentLine/>
							<CommentLine>   Set TestNetView.DataBinding(ItemText) = NetView.Create.BindingInfo(&quot;My Field&quot;)</CommentLine>
							<CommentLine/>
							<CommentLine>   Actual = TestNetView.DataBinding(ItemText).FieldName</CommentLine>
							<CommentLine/>
							<CommentLine>   Assert.AreEqual &quot;My Field&quot;, Actual</CommentLine>
							<CommentLine>End Sub</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithPlacementPolicyInPlace_CallsItOnEachNewItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithPlacementPolicyInPlace_CallsResetLayout</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: Move to test fixture regarding handling PlacementPolicies</CommentLine>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithPlacementPolicyInPlace_CallsResetLayout()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetSqlRecordSourceForItemsWithId</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetSqlRecordSourceForItemsWithId(ParamArray Ids() As Variant)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Ids(</Name>
								<Type/>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>True</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Variant)</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_DefaultPlacementPolicy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_DefaultPlacementPolicy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>134</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>StackSize_OnNewInstance_IsSix</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub StackSize_OnNewInstance_IsSix()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>StackSize_From2To20_RaisesNoError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub StackSize_From2To20_RaisesNoError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>StackSize_SetToInvalidNumber_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Row(-1).Name = &quot;Negative&quot;</CommentLine>
							<CommentLine> AccUnit:Row(0).Name = &quot;Zero&quot;</CommentLine>
							<CommentLine> AccUnit:Row(1).Name = &quot;One&quot;</CommentLine>
							<CommentLine> AccUnit:Row(21).Name = &quot;Too large&quot;</CommentLine>
						</CommentLines>
						<Declaration>Public Sub StackSize_SetToInvalidNumber_RaisesProperError(ByVal StackSize As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>StackSize</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetWorldAreaOnDatabinding_WithNoWorldDefinitionAreaSet_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> Setup</CommentLine>
						</CommentLines>
						<Declaration>Public Sub GetWorldAreaOnDatabinding_WithNoWorldDefinitionAreaSet_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetWorldAreaOnDatabinding_CallingMoreThanStackSizeTimes_StartsOverAgain</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetWorldAreaOnDatabinding_CallingMoreThanStackSizeTimes_StartsOverAgain()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetWorldAreaOnDatabinding_WithStackSize2_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetWorldAreaOnDatabinding_WithStackSize2_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetWorldAreaOnDatabinding_WithStackSize3_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetWorldAreaOnDatabinding_WithStackSize3_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ResetLayout_WhenCalled_StartsOverAgain</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>20</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ResetLayout_WhenCalled_StartsOverAgain()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>PolicyAsInterface</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get PolicyAsInterface() As NV_IPlacementPolicy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IPlacementPolicy</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__Proxies</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__Proxies</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>17</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Testing</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Testing() As zTST__Facade</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__Facade</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DefaultDragSizeStrategy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DefaultDragSizeStrategy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>7</CountOfDeclarationLines>
				<CountOfLines>65</CountOfLines>
				<Interfaces>
					<Interface>NV_IDragSizeStrategy</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MinimumExtent</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let MinimumExtent(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MinimumExtent</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MinimumExtent() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MaximumExtent</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let MaximumExtent(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MaximumExtent</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MaximumExtent() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnNewPosition</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine> Do not further restrict dragging</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub NV_IDragSizeStrategy_OnNewPosition(ByRef Position As Long, ByVal Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtEnd</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: Test it!</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub NV_IDragSizeStrategy_OnSizingAtEnd(ByVal Position As Long, ByRef Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtBegin</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>20</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: Test it!</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub NV_IDragSizeStrategy_OnSizingAtBegin(ByRef Position As Long, ByRef Extent As Long, ByVal Extent2 As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__MousePointerToolMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__MousePointerToolMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>41</CountOfLines>
				<Interfaces>
					<Interface>NV_MousePointerTool</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As zTST__MousePointerToolMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__MousePointerToolMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_MousePointerTool_Self</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_MousePointerTool_Self() As NV_MousePointerTool</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MousePointerTool</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_MousePointerTool_Style</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_MousePointerTool_Style() As MousePointerStyleEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>MousePointerStyleEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_MousePointerTool_Style</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let NV_MousePointerTool_Style(ByVal Value As MousePointerStyleEnum)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>MousePointerStyleEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Style</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Style(ByVal Value As MousePointerStyleEnum)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>MousePointerStyleEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Style</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Style() As MousePointerStyleEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>MousePointerStyleEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>StyleHasBeenSet</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get StyleHasBeenSet() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_Tools</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_Tools</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>12</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Min</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function Min(ByVal a As Long, ByVal b As Long) As Long</Declaration>
						<Parameters>
							<Parameter>
								<Name>a</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>b</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Max</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function Max(ByVal a As Long, ByVal b As Long) As Long</Declaration>
						<Parameters>
							<Parameter>
								<Name>a</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>b</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_CoordinatePresenter</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_CoordinatePresenter</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>124</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>VirtualPosition_SetToNegativeValue_SetsControlPositionToZeroAndCorrectlyMovesEndEdge</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub VirtualPosition_SetToNegativeValue_SetsControlPositionToZeroAndCorrectlyMovesEndEdge()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>VirtualExtent_SetToNegativeValue_RaisesError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub VirtualExtent_SetToNegativeValue_RaisesError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingBegin_WhenSetToANegativeNumber_RaisesError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClippingBegin_WhenSetToANegativeNumber_RaisesError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingBegin_WhenSetGreaterThanClippingEnd_RaisesError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClippingBegin_WhenSetGreaterThanClippingEnd_RaisesError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingEnd_OnNewInstance_IsMaxValue</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClippingEnd_OnNewInstance_IsMaxValue()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingEnd_WhenSetSmallerThanClippingBegin_RaisesError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClippingEnd_WhenSetSmallerThanClippingBegin_RaisesError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterNewPosExt_WithPositionBeforeClippingBegin_SetsControlPositionToClipBegin</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterNewPosExt_WithPositionBeforeClippingBegin_SetsControlPositionToClipBegin()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterNewPosExt_WithEndAfterClippingEnd_SetsControlEndToClipEnd</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterNewPosExt_WithEndAfterClippingEnd_SetsControlEndToClipEnd()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterNewPosExt_WithPositionBeyondClippingEnd_RestrictsControlPositionToClippingEnd</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterNewPosExt_WithPositionBeyondClippingEnd_RestrictsControlPositionToClippingEnd()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterNewPosExt_WithPositionBeyondClippingEnd_RestrictsControlExtentToZero</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterNewPosExt_WithPositionBeyondClippingEnd_RestrictsControlExtentToZero()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterClick_ClickingNextToControlBeginWithClippedBeginBorder_SetsClickRegionToCentral</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Ignore(&quot;Decouple that tested aspect&quot;)</CommentLine>
						</CommentLines>
						<Declaration>Public Sub RegisterClick_ClickingNextToControlBeginWithClippedBeginBorder_SetsClickRegionToCentral()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterClick_ClickingNextToControlEndWithClippedBorder_SetsClickRegionToCentral</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Ignore(&quot;Decouple that tested aspect&quot;)</CommentLine>
						</CommentLines>
						<Declaration>Public Sub RegisterClick_ClickingNextToControlEndWithClippedBorder_SetsClickRegionToCentral()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_GridDragSizeStrategy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_GridDragSizeStrategy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>7</CountOfDeclarationLines>
				<CountOfLines>69</CountOfLines>
				<Interfaces>
					<Interface>NV_IDragSizeStrategy</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Initialize/Terminate ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Other ___</CommentLine>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_GridDragSizeStrategy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_GridDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Spacing</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Spacing(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Spacing</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Spacing() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Offset</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Offset(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Offset</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Offset() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnNewPosition</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnNewPosition(ByRef Position As Long, ByVal Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtBegin</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnSizingAtBegin(ByRef Position As Long, ByRef Extent As Long, ByVal Extent2 As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtEnd</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnSizingAtEnd(ByVal Position As Long, ByRef Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SnapToGrid</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function SnapToGrid(ByVal Position As Long) As Long</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_CoordinatePresenter</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_CoordinatePresenter</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>28</CountOfDeclarationLines>
				<CountOfLines>187</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Self() As NV_CoordinatePresenter</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_CoordinatePresenter</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlPosition</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let ControlPosition(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlPosition</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ControlPosition() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlExtent</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let ControlExtent(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlExtent</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ControlExtent() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ClippingBegin</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let ClippingBegin(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingBegin</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClippingBegin() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ClippingEnd</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let ClippingEnd(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingEnd</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClippingEnd() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>VirtualPosition</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let VirtualPosition(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>VirtualPosition</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get VirtualPosition() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>VirtualExtent</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let VirtualExtent(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>VirtualExtent</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get VirtualExtent() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Manipulation</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get Manipulation() As NV_DeviceManipulationInfo</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceManipulationInfo</ReturnType>
					</Procedure>
					<Procedure>
						<Name>VirtualPosExt</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get VirtualPosExt() As NV_DevicePosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>RegisterManipulation</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub RegisterManipulation(ByVal MousePosition As Long, ByVal ManipulationKind As ManipulationKind)</Declaration>
						<Parameters>
							<Parameter>
								<Name>MousePosition</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ManipulationKind</Name>
								<Type>ManipulationKind</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterNewPosExt</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>21</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub RegisterNewPosExt(ByVal Value As NV_DevicePosExt)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateControlPosExt</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateControlPosExt()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterClick</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub RegisterClick(ByVal ClickPosition As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>ClickPosition</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetPosExtAfterManipulation</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>38</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function GetPosExtAfterManipulation() As NV_DevicePosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetAVirtualPosition</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GetAVirtualPosition(ByVal AControlPosition As Long) As Long</Declaration>
						<Parameters>
							<Parameter>
								<Name>AControlPosition</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_WorldRectangle</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_WorldRectangle</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>138</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Initialize_CalledOnFreshInstance_SetsTheValues</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Initialize_CalledOnFreshInstance_SetsTheValues()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Initialize_CalledOnInitializedInstance_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Initialize_CalledOnInitializedInstance_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetAsString_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetAsString_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AsStringLet_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AsStringLet_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AsStringLet_NotStartingWithLeftParenthesis_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AsStringLet_NotStartingWithLeftParenthesis_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AsStringLet_WithoutRightParenthesis_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AsStringLet_WithoutRightParenthesis_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AsStringLet_OnInitializedInstance_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AsStringLet_OnInitializedInstance_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AsStringLet_CalledTwice_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AsStringLet_CalledTwice_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetPosition2Axis_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetPosition2Axis_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetAxis1_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetAxis1_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>InitializeFromPosExts_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub InitializeFromPosExts_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Clone_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Clone_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DefaultPlacementPolicy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DefaultPlacementPolicy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>14</CountOfDeclarationLines>
				<CountOfLines>94</CountOfLines>
				<Interfaces>
					<Interface>NV_IPlacementPolicy</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IPlacementPolicy_WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IPlacementPolicy_WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_ResetLayout</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IPlacementPolicy_ResetLayout()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_GetWorldAreaOnDatabinding</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>20</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IPlacementPolicy_GetWorldAreaOnDatabinding(ByVal OriginalWorldArea As NV_WorldRectangle) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>OriginalWorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>StackSize</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let StackSize(ByVal Value As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>StackSize</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get StackSize() As Integer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Integer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OnWorldDefinitionAreaChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnWorldDefinitionAreaChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnStackSizeChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnStackSizeChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateItemSizes</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateItemSizes()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetItemSize</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetItemSize(ByVal WholeMeasure As Double) As Double</Declaration>
						<Parameters>
							<Parameter>
								<Name>WholeMeasure</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_DefaultDragSizeStrategy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_DefaultDragSizeStrategy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>13</CountOfDeclarationLines>
				<CountOfLines>77</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MinimumExtent_OnNewInstance_IsEqualToZero</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MinimumExtent_OnNewInstance_IsEqualToZero()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MaximumExtent_OnNewInstance_IsEqualToMaxInt</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MaximumExtent_OnNewInstance_IsEqualToMaxInt()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnSizingAtEnd_SmallerThanMinimumExtent_RestrictsToMinimumExtent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub OnSizingAtEnd_SmallerThanMinimumExtent_RestrictsToMinimumExtent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnSizingAtEnd_LargerThanMaximumExtent_RestrictsToMaximumExtent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub OnSizingAtEnd_LargerThanMaximumExtent_RestrictsToMaximumExtent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnSizingAtBegin_SmallerThanMinimumExtent_RestrictsToMinimumExtentAndKeepsEnd</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub OnSizingAtBegin_SmallerThanMinimumExtent_RestrictsToMinimumExtentAndKeepsEnd()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnSizingAtBegin_LargerThanMaximumExtent_RestrictsToMaximumExtentAndKeepsEnd</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub OnSizingAtBegin_LargerThanMaximumExtent_RestrictsToMaximumExtentAndKeepsEnd()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>StrategyAsInterface</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get StrategyAsInterface() As NV_IDragSizeStrategy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDragSizeStrategy</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__Factory</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__Factory</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>95</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>TestForm</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>AccUnit:TestRelated</CommentLine>
						</CommentLines>
						<Declaration>Friend Function TestForm(Optional ByVal Factory As NV__Factory = Nothing) As Form_zTST_TestForm</Declaration>
						<Parameters>
							<Parameter>
								<Name>Factory</Name>
								<Type>NV__Factory</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>Nothing</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>Form_zTST_TestForm</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ItemTestWrapper</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function ItemTestWrapper(ByVal Item As NV_Item) As zTST__ItemTestWrapper</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>zTST__ItemTestWrapper</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NetViewFactoryMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function NetViewFactoryMock() As zTST__NetViewFactoryMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__NetViewFactoryMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>StubDragSizeStrategy</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function StubDragSizeStrategy() As zTST__StubDragSizeStrategy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__StubDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NetViewTestWrapper</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function NetViewTestWrapper(ByVal TheNetView As NV_NetView) As zTST__NetViewTestWrapper</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheNetView</Name>
								<Type>NV_NetView</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>zTST__NetViewTestWrapper</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MousePointerToolMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function MousePointerToolMock() As zTST__MousePointerToolMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__MousePointerToolMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceWorldTransformerMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DeviceWorldTransformerMock() As zTST__DeviceWorldTransformerMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__DeviceWorldTransformerMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceWorldTransformerFactoryMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DeviceWorldTransformerFactoryMock() As zTST__DeviceWorldTransformerFactoryMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__DeviceWorldTransformerFactoryMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WorldRectangleFromString</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function WorldRectangleFromString(ByVal AsString As String) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>AsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceRectangleFromString</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DeviceRectangleFromString(ByVal AsString As String) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>AsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceRectangleFromFormSection</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DeviceRectangleFromFormSection(ByVal Section As Access.Section) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>Section</Name>
								<Type>Access.Section</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>PlacementPolicyMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function PlacementPolicyMock() As zTST__PlacementPolicyMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__PlacementPolicyMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ItemFormatterMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function ItemFormatterMock() As zTST__ItemFormatterMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__ItemFormatterMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ManipulationKindProviderMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function ManipulationKindProviderMock() As zTST__ManipulationKindProviderMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__ManipulationKindProviderMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ItemManagerMock</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function ItemManagerMock() As zTST__ItemManagerMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__ItemManagerMock</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DevicePosExt</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DevicePosExt</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>5</CountOfDeclarationLines>
				<CountOfLines>30</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_DevicePosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Position</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Position(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Position</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Position() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Extent</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Extent(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Extent</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Extent() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_IDeviceWorldTransformer</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_IDeviceWorldTransformer</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>13</CountOfDeclarationLines>
				<CountOfLines>55</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Initialize</Name>
						<Scope/>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Sub Initialize(ByVal DeviceDefinitionArea As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>DeviceDefinitionArea</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Property Set DeviceDefinitionArea(ByVal Value As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Property Get DeviceDefinitionArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Property Set WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Property Get WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Orientation</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Property Get Orientation() As OrientationEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>OrientationEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceToWorld</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Function TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceVectorToWorld</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Function TransformDeviceVectorToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldToDevice</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Function TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldVectorToDevice</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Function TransformWorldVectorToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>SetWorldForUniformTransformation</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Public Sub SetWorldForUniformTransformation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_E2EInteraction_Global</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_E2EInteraction_Global</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>39</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MovingTheMouse_WhenClickedInTheBackground_MovesWorldDefinitionAreaAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MovingTheMouse_WhenClickedInTheBackground_MovesWorldDefinitionAreaAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DeviceRectangle</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DeviceRectangle</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>7</CountOfDeclarationLines>
				<CountOfLines>123</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Left(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Left() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Top(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Top() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Width(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Width() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Height(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Height() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AsString</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let AsString(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AsString</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get AsString() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ReadPosition</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadPosition(ByVal PosAsString As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PosAsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadExtent</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadExtent(ByVal ExtentAsString As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>ExtentAsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>InitializeFromPosExts</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub InitializeFromPosExts(ByVal Horizontal As NV_DevicePosExt, ByVal Vertical As NV_DevicePosExt)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Horizontal</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Vertical</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>CopyFrom</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub CopyFrom(ByVal Source As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Source</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Horizontal</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Horizontal() As NV_DevicePosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Vertical</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Vertical() As NV_DevicePosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Contains</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function Contains(ByVal Point As NV_DevicePoint) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>Point</Name>
								<Type>NV_DevicePoint</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Clone</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function Clone() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DefaultManipulationKindProvider</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DefaultManipulationKindProvider</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>82</CountOfLines>
				<Interfaces>
					<Interface>NV_IManipulationKindProvider</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Border</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Border(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Border</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Border() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IManipulationKindProvider_GetManipulationKindsFromPosition</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IManipulationKindProvider_GetManipulationKindsFromPosition(ByVal X As Long, ByVal Y As Long) As ManipulationKinds</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>ManipulationKinds</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetManipulationKind</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>21</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetManipulationKind(ByVal ClickRegion As RegionEnum, ByVal PerpendicularClickRegion As RegionEnum) As ManipulationKind</Declaration>
						<Parameters>
							<Parameter>
								<Name>ClickRegion</Name>
								<Type>RegionEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PerpendicularClickRegion</Name>
								<Type>RegionEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>ManipulationKind</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetRegion</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetRegion(ByVal VirtualPositionInQuestion As Long, ByVal VirtualExtent As Long, ByVal Border As Long) As RegionEnum</Declaration>
						<Parameters>
							<Parameter>
								<Name>VirtualPositionInQuestion</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VirtualExtent</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Border</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>RegionEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IManipulationKindProvider_RegisterControlExtent</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IManipulationKindProvider_RegisterControlExtent(ByVal Width As Long, ByVal Height As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Width</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Height</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_DataBinder</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_DataBinder</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>159</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBinding_OnNewInstance_IsNotNothingForAllProperties</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBinding_OnNewInstance_IsNotNothingForAllProperties()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBindingSet_WithValueNothingForItemBusinessId_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBindingSet_WithValueNothingForItemBusinessId_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBindingSet_WithValueNothingForItemText_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBindingSet_WithValueNothingForItemText_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBindingSet_WithValueNothingForItemTipText_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBindingSet_WithValueNothingForItemTipText_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBindingSet_WithValueNothingForItemBackColor_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBindingSet_WithValueNothingForItemBackColor_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsDatabound_OnNewInstance_IsFalseForAllProperties</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub IsDatabound_OnNewInstance_IsFalseForAllProperties()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsDatabound_WithBindingFieldNameSetAndClearedForItemBusinessId_ReflectsTheFieldName</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub IsDatabound_WithBindingFieldNameSetAndClearedForItemBusinessId_ReflectsTheFieldName()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AssertIsDatabound_WithBindingFieldNameSetAndClearedForItemBusinessId_ReflectsTheFieldName</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub AssertIsDatabound_WithBindingFieldNameSetAndClearedForItemBusinessId_ReflectsTheFieldName(ByVal PropertyToBind As BindingProperty)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithItemManagerIsNothing_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithItemManagerIsNothing_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithPlacementPolicyIsNothing_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithPlacementPolicyIsNothing_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithNonExistingFieldName_SetsTheItemTextToAProperErrorAndSetsTheBackColorToRed</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithNonExistingFieldName_SetsTheItemTextToAProperErrorAndSetsTheBackColorToRed()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithEmptyFieldNameForBusinessIdBinding_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithEmptyFieldNameForBusinessIdBinding_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind_WithNonExistingFieldNameForBusinessIdBinding_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind_WithNonExistingFieldNameForBusinessIdBinding_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AssertDataBind_WithNonExistingFieldName_SetsTheItemTextToAProperErrorAndSetsTheBackColorToRed</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>22</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub AssertDataBind_WithNonExistingFieldName_SetsTheItemTextToAProperErrorAndSetsTheBackColorToRed(ByVal PropertyToBind As BindingProperty)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_NullDragSizeStrategy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_NullDragSizeStrategy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>23</CountOfLines>
				<Interfaces>
					<Interface>NV_IDragSizeStrategy</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnNewPosition</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine> Do nothing</CommentLine>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnNewPosition(ByRef Position As Long, ByVal Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtBegin</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine> Do nothing</CommentLine>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnSizingAtBegin(ByRef Position As Long, ByRef Extent As Long, ByVal Extent2 As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtEnd</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine> Do nothing</CommentLine>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnSizingAtEnd(ByVal Position As Long, ByRef Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV__Factory</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV__Factory</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>155</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>CoordinatePresenter</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function CoordinatePresenter() As NV_CoordinatePresenter</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_CoordinatePresenter</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Item</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function Item() As NV_Item</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>LabelManager</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function LabelManager() As NV_LabelManager</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_LabelManager</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceRectangle</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DeviceRectangle() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceRectangleFromPosExts</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DeviceRectangleFromPosExts(ByVal Horizontal As NV_DevicePosExt, ByVal Vertical As NV_DevicePosExt) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>Horizontal</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Vertical</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DevicePosExt</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DevicePosExt(ByVal Position As Long, ByVal Extent As Long) As NV_DevicePosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceManipulationInfo</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function DeviceManipulationInfo() As NV_DeviceManipulationInfo</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceManipulationInfo</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DefaultDragSizeStrategy</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function DefaultDragSizeStrategy() As NV_DefaultDragSizeStrategy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DefaultDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NullDragSizeStrategy</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function NullDragSizeStrategy() As NV_NullDragSizeStrategy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_NullDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GridDragSizeStrategy</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GridDragSizeStrategy(Optional ByVal Spacing As Long = 500, Optional ByVal Offset As Long = 0) As NV_GridDragSizeStrategy</Declaration>
						<Parameters>
							<Parameter>
								<Name>Spacing</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>500</DefaultValue>
							</Parameter>
							<Parameter>
								<Name>Offset</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>0</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>NV_GridDragSizeStrategy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ParentGetter</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function ParentGetter()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Point</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function Point(ByVal X As Long, ByVal Y As Long) As NV_DevicePoint</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DevicePoint</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MousePointerTool</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function MousePointerTool() As NV_MousePointerTool</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MousePointerTool</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceWorldTransformerFactory</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function DeviceWorldTransformerFactory() As NV_DeviceWorldTransformerFactory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceWorldTransformerFactory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WorldRectangle</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function WorldRectangle(ByVal Position1 As Double, ByVal Extent1 As Double, ByVal Position2 As Double, ByVal Extent2 As Double) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position1</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent1</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Position2</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WorldRectangleFromPosExts</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function WorldRectangleFromPosExts(ByVal Axis1 As NV_WorldPosExt, ByVal Axis2 As NV_WorldPosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>Axis1</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Axis2</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WorldPosExt</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function WorldPosExt(ByVal Position As Double, ByVal Extent As Double) As NV_WorldPosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MappingParams</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function MappingParams() As NV_MappingParams</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MappingParams</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DataBinder</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function DataBinder() As NV_DataBinder</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DataBinder</ReturnType>
					</Procedure>
					<Procedure>
						<Name>BindingInfo</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function BindingInfo(ByVal FieldName As String) As NV_BindingInfo</Declaration>
						<Parameters>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_BindingInfo</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DefaultPlacementPolicy</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function DefaultPlacementPolicy() As NV_DefaultPlacementPolicy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DefaultPlacementPolicy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ItemFormatter</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function ItemFormatter() As NV_ItemFormatter</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_ItemFormatter</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DefaultManipulationKindProvider</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function DefaultManipulationKindProvider() As NV_DefaultManipulationKindProvider</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DefaultManipulationKindProvider</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Proxies</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>Proxies</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>5</CountOfDeclarationLines>
				<CountOfLines>26</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Common</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Common() As Facade</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Facade</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Logging</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Logging() As Log_Logger</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Log_Logger</ReturnType>
					</Procedure>
					<Procedure>
						<Name>EnsureSetUp</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub EnsureSetUp()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DevicePoint</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DevicePoint</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>53</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_DevicePoint</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DevicePoint</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Initialize</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Initialize(ByVal X As Long, ByVal Y As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>X</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get X() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Y</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Y() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AsString</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let AsString(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AssertNotInitialized</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub AssertNotInitialized()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadPosition</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadPosition(ByVal PosAsString As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PosAsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DeviceWorldTransformer_UpRight</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DeviceWorldTransformer_UpRight</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>200</CountOfLines>
				<Interfaces>
					<Interface>NV_IDeviceWorldTransformer</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_DeviceWorldTransformer_UpRight</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceWorldTransformer_UpRight</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MeAsTransformer</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get MeAsTransformer() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_Initialize(ByVal DeviceDefinitionArea As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>DeviceDefinitionArea</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Orientation</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_Orientation() As OrientationEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>OrientationEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_DeviceDefinitionArea(ByVal Value As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_DeviceDefinitionArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_SetWorldForUniformTransformation</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_SetWorldForUniformTransformation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateParameters</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateParameters()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetPositiveMappingParams</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL?</CommentLine>
						</CommentLines>
						<Declaration>Private Function GetPositiveMappingParams(ByVal WorldAxis As NV_WorldPosExt, ByVal DeviceAxis As NV_DevicePosExt) As NV_MappingParams</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldAxis</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeviceAxis</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_MappingParams</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetNegativeMappingParams</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL?</CommentLine>
						</CommentLines>
						<Declaration>Private Function GetNegativeMappingParams(ByVal WorldAxis As NV_WorldPosExt, ByVal DeviceAxis As NV_DevicePosExt) As NV_MappingParams</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldAxis</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeviceAxis</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_MappingParams</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt, ByVal Normalize As Boolean) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDevicePosExt</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL</CommentLine>
						</CommentLines>
						<Declaration>Private Function TransformDevicePosExt(ByVal DevicePosExt As NV_DevicePosExt, ByVal Mapping As NV_MappingParams, ByVal Normalize As Boolean) As NV_WorldPosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>DevicePosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Transform</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function Transform(ByVal Value As Double, ByVal Mapping As NV_MappingParams) As Double</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldVectorToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldVectorToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle, ByVal Normalize As Boolean) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldPosExt</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL</CommentLine>
						</CommentLines>
						<Declaration>Private Function TransformWorldPosExt(ByVal WorldPosExt As NV_WorldPosExt, ByVal Mapping As NV_MappingParams, Optional ByVal Normalize As Boolean = True) As NV_DevicePosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldPosExt</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>True</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformInverse</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformInverse(ByVal Value As Double, ByVal Mapping As NV_MappingParams) As Double</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DataBinder</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DataBinder</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>176</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RecordSource</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let RecordSource(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RecordSource</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get RecordSource() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DataBinding</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: Make this read only after refactoring</CommentLine>
						</CommentLines>
						<Declaration>Public Property Set DataBinding(ByVal PropertyToBind As BindingProperty, ByVal Value As NV_BindingInfo)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_BindingInfo</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBinding</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get DataBinding(ByVal PropertyToBind As BindingProperty) As NV_BindingInfo</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_BindingInfo</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GenerationFlag</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let GenerationFlag(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GenerationFlag</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get GenerationFlag() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>IsDatabound</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine>-- Read only</CommentLine>
						</CommentLines>
						<Declaration>Public Property Get IsDatabound(ByVal PropertyToBind As BindingProperty) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DataBind</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>82</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind(ByVal ItemManager As NV_IItemManager, ByVal PlacementPolicy As NV_IPlacementPolicy)</Declaration>
						<Parameters>
							<Parameter>
								<Name>ItemManager</Name>
								<Type>NV_IItemManager</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PlacementPolicy</Name>
								<Type>NV_IPlacementPolicy</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeleteObsoleteItems</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub DeleteObsoleteItems(ByVal ItemManager As NV_IItemManager)</Declaration>
						<Parameters>
							<Parameter>
								<Name>ItemManager</Name>
								<Type>NV_IItemManager</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BindField</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function BindField(ByVal Fields As DAO.Fields, ByVal PropertyToBind As BindingProperty, ByRef ErrorText As String) As DAO.Field</Declaration>
						<Parameters>
							<Parameter>
								<Name>Fields</Name>
								<Type>DAO.Fields</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ErrorText</Name>
								<Type>String</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>DAO.Field</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetFieldOrNothing</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetFieldOrNothing(ByVal Fields As DAO.Fields, ByVal FieldName As String) As DAO.Field</Declaration>
						<Parameters>
							<Parameter>
								<Name>Fields</Name>
								<Type>DAO.Fields</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>DAO.Field</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_DeviceWorldTransformer_UpRight</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_DeviceWorldTransformer_UpRight</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>121</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Orientation_OnNewInstance_IsUpRight</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Orientation_OnNewInstance_IsUpRight()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToNothing_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToNothing_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToZeroWidth_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToZeroWidth_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToZeroHeight_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToZeroHeight_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetWorldForUniformTransformation_WithDeviceDefinitionAreaSet_SetsWorldDefinitionAreaAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetWorldForUniformTransformation_WithDeviceDefinitionAreaSet_SetsWorldDefinitionAreaAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformWorldToDevice_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformWorldToDevice_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceToWorld_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformDeviceToWorld_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformWorldVectorToDevice_WithPositiveExtent1AndNegativeExtent2_ResultsInNegativeWidthAndHeight</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformWorldVectorToDevice_WithPositiveExtent1AndNegativeExtent2_ResultsInNegativeWidthAndHeight()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceVectorToWorld_WithNegativeWidthAndPositiveHeight_ResultsInNegativeExtents</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformDeviceVectorToWorld_WithNegativeWidthAndPositiveHeight_ResultsInNegativeExtents()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>PG_ItemPropertiesFormManager</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>PG_ItemPropertiesFormManager</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>84</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Item</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set Item(ByVal Value As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Item</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Item() As NV_Item</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Visible</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Visible(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Visible</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Visible() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ShowPropertiesDialog</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ShowPropertiesDialog()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsPropertiesFormOpen</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function IsPropertiesFormOpen() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OpenPropertiesForm</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OpenPropertiesForm()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdatePropertiesFormReference</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdatePropertiesFormReference()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>HidePropertiesDialog</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub HidePropertiesDialog()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__ItemTestWrapper</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__ItemTestWrapper</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>23</CountOfDeclarationLines>
				<CountOfLines>212</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As zTST__ItemTestWrapper</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__ItemTestWrapper</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Left(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Left() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Top(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Top() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Width(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Width() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Height(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Height() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Item</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set Item(ByVal Value As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Item</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Item() As NV_Item</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>PosSize</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let PosSize(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>PosSize</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get PosSize() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>PushLeftMouse</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub PushLeftMouse(ByVal RegionH As HorizontalLabelRegion, ByVal RegionV As VerticalLabelRegion)</Declaration>
						<Parameters>
							<Parameter>
								<Name>RegionH</Name>
								<Type>HorizontalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>RegionV</Name>
								<Type>VerticalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>PushLeftMouseAt</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub PushLeftMouseAt(ByVal X As Long, ByVal Y As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClick</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DoubleClick()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReleaseMouseButton</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub ReleaseMouseButton()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MoveMouseBy</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub MoveMouseBy(ByVal DeltaX As Long, ByVal DeltaY As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>DeltaX</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeltaY</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MoveMousePointerTo</Name>
						<Scope>Friend</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Function MoveMousePointerTo(ByVal RegionH As HorizontalLabelRegion, ByVal RegionV As VerticalLabelRegion) As NV_DevicePoint</Declaration>
						<Parameters>
							<Parameter>
								<Name>RegionH</Name>
								<Type>HorizontalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>RegionV</Name>
								<Type>VerticalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DevicePoint</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetXFromRegion</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetXFromRegion(ByVal RegionH As HorizontalLabelRegion, ByVal Border As Long) As Long</Declaration>
						<Parameters>
							<Parameter>
								<Name>RegionH</Name>
								<Type>HorizontalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Border</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetBorder</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetBorder() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetYFromRegion</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetYFromRegion(ByVal RegionV As VerticalLabelRegion, ByVal Border As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>RegionV</Name>
								<Type>VerticalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Border</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>InvokeMouseMove</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub InvokeMouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Button</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Shift</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>X</Name>
								<Type>Single</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Single</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>InvokeMouseDown</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub InvokeMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Button</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Shift</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>X</Name>
								<Type>Single</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Single</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>InvokeDblClick</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub InvokeDblClick()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MovedSizedWasRaised</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MovedSizedWasRaised() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_Item_MovedSized</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_Item_MovedSized()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickedWasRaised</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClickedWasRaised() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_Item_Clicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_Item_Clicked()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClickedWasRaised</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get DoubleClickedWasRaised() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_Item_DoubleClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_Item_DoubleClicked()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Form_frmItemProperties</Name>
			<FileName/>
			<PathFileName/>
			<Type>VBADocument</Type>
			<Properties>
				<Property>
					<Value/>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>767</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Form_Open</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Open/Load/Unload/Close ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Form_Open(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Form_Load</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Form_Load()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Form_Unload</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Form_Unload(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Form_Close</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>   Set cslBorderColor = Nothing</CommentLine>
							<CommentLine>   Set cslBackColor = Nothing</CommentLine>
							<CommentLine>   Set cslTextColor = Nothing</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Form_Close()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtPosition1_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Event-Procedures ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtPosition1_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtPosition1_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtPosition1_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtPosition2_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtPosition2_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtPosition2_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtPosition2_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtExtent1_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtExtent1_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtExtent1_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtExtent1_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtExtent2_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtExtent2_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtExtent2_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtExtent2_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTextAlign_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property TextAlign</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtTextAlign_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTextAlign_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtTextAlign_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>cboTextAlign_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub cboTextAlign_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtText_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property Text</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtText_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtText_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtText_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontBold_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property FontBold</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtFontBold_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontBold_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtFontBold_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkFontBold_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkFontBold_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontItalic_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property FontItalic</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtFontItalic_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontItalic_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtFontItalic_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkFontItalic_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkFontItalic_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontName_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property FontName</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtFontName_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontName_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtFontName_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontSize_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property FontSize</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtFontSize_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontSize_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtFontSize_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>cboFontSize_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub cboFontSize_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontUnderline_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property FontUnderline</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtFontUnderline_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtFontUnderline_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtFontUnderline_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkFontUnderline_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkFontUnderline_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTextColor_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property TextColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtTextColor_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTextColor_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine>   HandleTextBoxAfterUpdate Me.txtTextColor, &quot;TextColor&quot;, cslTextColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtTextColor_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>cslTextColor_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine>   HandleAlternativeAfterUpdate Me.txtTextColor, &quot;TextColor&quot;, cslTextColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub cslTextColor_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBackColor_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property BackColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtBackColor_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBackColor_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine>   HandleTextBoxAfterUpdate Me.txtBackColor, &quot;BackColor&quot;, cslBackColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtBackColor_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>cslBackColor_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine>   HandleAlternativeAfterUpdate Me.txtBackColor, &quot;BackColor&quot;, cslBackColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub cslBackColor_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTransparent_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property Transparent</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtTransparent_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTransparent_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtTransparent_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkTransparent_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkTransparent_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBorderColor_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property BorderColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtBorderColor_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBorderColor_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine>   HandleTextBoxAfterUpdate Me.txtBorderColor, &quot;BorderColor&quot;, cslBorderColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtBorderColor_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>cslBorderColor_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
							<CommentLine>   HandleAlternativeAfterUpdate Me.txtBorderColor, &quot;BorderColor&quot;, cslBorderColor</CommentLine>
						</CommentLines>
						<Declaration>Private Sub cslBorderColor_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBorderStyle_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property BorderStyle</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtBorderStyle_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBorderStyle_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtBorderStyle_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>cboBorderStyle_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub cboBorderStyle_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBorderWidth_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property BorderWidth</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtBorderWidth_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBorderWidth_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtBorderWidth_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>cboBorderWidth_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub cboBorderWidth_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTopMargin_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property TopMargin</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtTopMargin_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTopMargin_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtTopMargin_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtRightMargin_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property RightMargin</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtRightMargin_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtRightMargin_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtRightMargin_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBottomMargin_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property BottomMargin</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtBottomMargin_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBottomMargin_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtBottomMargin_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtLeftMargin_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property LeftMargin</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtLeftMargin_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtLeftMargin_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtLeftMargin_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtVisible_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property Visible</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtVisible_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtVisible_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtVisible_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkVisible_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkVisible_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtReadonly_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property Readonly</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtReadonly_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtReadonly_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtReadonly_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkReadonly_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkReadonly_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtSelected_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property Selected</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtSelected_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtSelected_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtSelected_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkSelected_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkSelected_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtEnabled_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property Enabled</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtEnabled_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtEnabled_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtEnabled_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkEnabled_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkEnabled_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTipText_BeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Property TipText</CommentLine>
						</CommentLines>
						<Declaration>Private Sub txtTipText_BeforeUpdate(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtTipText_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtTipText_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>btnResumeLayout_Click</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine>   m_objItem.ResumeLayout</CommentLine>
							<CommentLine>   UpdateAutoUpdateInfo</CommentLine>
						</CommentLines>
						<Declaration>Private Sub btnResumeLayout_Click()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>btnSuspendLayout_Click</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine>   m_objItem.SuspendLayout</CommentLine>
							<CommentLine>   UpdateAutoUpdateInfo</CommentLine>
						</CommentLines>
						<Declaration>Private Sub btnSuspendLayout_Click()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>btnApply_Click</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub btnApply_Click()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>btnHide_Click</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub btnHide_Click()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_objItem_MovedSized</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> ___ m_objItem&apos;s Event-Procedures ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub m_objItem_MovedSized()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_objItem_GotDirty</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_objItem_GotDirty()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Show</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Public Members ___</CommentLine>
						</CommentLines>
						<Declaration>Public Sub Show()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Hide</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Hide()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlToObserve</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set ControlToObserve(ByVal Value As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Item</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Item() As NV_Item</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>EnableGUI</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>34</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Private Methods ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub EnableGUI(ByVal EnableIt As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>EnableIt</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClearControls</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ClearControls()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadItem</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>62</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadWorldArea</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> Tab page &quot;Position And Size&quot;</CommentLine>
						</CommentLines>
						<Declaration>Private Sub ReadWorldArea()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateItem</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>45</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateWorldArea</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> Tab page &quot;Position And Size&quot;</CommentLine>
						</CommentLines>
						<Declaration>Private Sub UpdateWorldArea()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ShowErrorInvalidProperty</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ShowErrorInvalidProperty(ByVal PropertyName As String, ByVal InvalidValue As String, ByVal ValuesMustInfo As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>InvalidValue</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ValuesMustInfo</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>HandleBooleanTextBeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>24</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function HandleBooleanTextBeforeUpdate(ByVal TheTextBox As Access.TextBox, ByVal PropertyName As String) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheTextBox</Name>
								<Type>Access.TextBox</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>HandleByteBeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function HandleByteBeforeUpdate(ByVal TheTextBox As Access.TextBox, ByVal PropertyName As String) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheTextBox</Name>
								<Type>Access.TextBox</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>HandleIntegerBeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function HandleIntegerBeforeUpdate(ByVal TheTextBox As Access.TextBox, ByVal PropertyName As String) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheTextBox</Name>
								<Type>Access.TextBox</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>HandleLongTextBoxBeforeUpdate</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>24</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function HandleLongTextBoxBeforeUpdate(ByVal TheTextBox As Access.TextBox, ByVal PropertyName As String) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheTextBox</Name>
								<Type>Access.TextBox</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>HandleTextBoxAfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>71</CountOfLines>
						<CommentLines>
							<CommentLine> Hint: Parameter AlternativeControl cannot be declared as Access.Control</CommentLine>
							<CommentLine>       because this shall also work with non native controls</CommentLine>
						</CommentLines>
						<Declaration>Private Sub HandleTextBoxAfterUpdate(ByVal TheTextBox As Access.TextBox, ByVal PropertyName As String, Optional ByVal AlternativeControl As Object, Optional ByVal NullValue As Variant)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheTextBox</Name>
								<Type>Access.TextBox</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>AlternativeControl</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>NullValue</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>HandleAlternativeAfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
							<CommentLine> Hint: Parameter AlternativeControl cannot be declared as Access.Control</CommentLine>
							<CommentLine>       because this shall also work with non native controls</CommentLine>
						</CommentLines>
						<Declaration>Private Sub HandleAlternativeAfterUpdate(ByVal TheTextBox As Access.TextBox, ByVal PropertyName As String, ByVal AlternativeControl As Object)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheTextBox</Name>
								<Type>Access.TextBox</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>AlternativeControl</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateAutoUpdateInfo</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
							<CommentLine>   If Me.lblAutoUpdateInfo.Caption &lt;&gt; &quot;AutoUpdate is &quot; &amp; IIf(m_objItem.AutoUpdate, &quot;on&quot;, &quot;off&quot;) &amp; &quot;.&quot; Then</CommentLine>
							<CommentLine>      If m_objItem.AutoUpdate Then</CommentLine>
							<CommentLine>         Me.btnSuspendLayout.Enabled = True</CommentLine>
							<CommentLine>         Me.btnSuspendLayout.SetFocus</CommentLine>
							<CommentLine>         Me.btnResumeLayout.Enabled = False</CommentLine>
							<CommentLine>      Else</CommentLine>
							<CommentLine>         Me.btnResumeLayout.Enabled = True</CommentLine>
							<CommentLine>         Me.btnResumeLayout.SetFocus</CommentLine>
							<CommentLine>         Me.btnSuspendLayout.Enabled = False</CommentLine>
							<CommentLine>      End If</CommentLine>
							<CommentLine>      Me.lblAutoUpdateInfo.Caption = &quot;AutoUpdate is &quot; &amp; IIf(m_objItem.AutoUpdate, &quot;on&quot;, &quot;off&quot;) &amp; &quot;.&quot;</CommentLine>
							<CommentLine>   End If</CommentLine>
						</CommentLines>
						<Declaration>Private Sub UpdateAutoUpdateInfo()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DistributeDbIcons</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub DistributeDbIcons()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateDbIcons</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>22</CountOfLines>
						<CommentLines>
							<CommentLine>   With m_objItem.Parent</CommentLine>
							<CommentLine>      Me.imgDbPosition1Near.Visible = .FieldIsDataBound(BindPosition1Near)</CommentLine>
							<CommentLine>      Me.imgDbExtent1.Visible = .FieldIsDataBound(BindExtent1)</CommentLine>
							<CommentLine>      Me.imgDbPosition2Near.Visible = .FieldIsDataBound(BindPosition2Near)</CommentLine>
							<CommentLine>      Me.imgDbExtent2.Visible = .FieldIsDataBound(BindExtent2)</CommentLine>
							<CommentLine>      Me.imgDbBackColor.Visible = .FieldIsDataBound(BindBackColor)</CommentLine>
							<CommentLine>      Me.imgDbBorderColor.Visible = .FieldIsDataBound(BindBorderColor)</CommentLine>
							<CommentLine>      Me.imgDbBorderStyle.Visible = .FieldIsDataBound(BindBorderStyle)</CommentLine>
							<CommentLine>      Me.imgDbBorderWidth.Visible = .FieldIsDataBound(BindBorderWidth)</CommentLine>
							<CommentLine>      Me.imgDbTextAlign.Visible = .FieldIsDataBound(BindTextAlign)</CommentLine>
							<CommentLine>      Me.imgDbText.Visible = .FieldIsDataBound(BindText)</CommentLine>
							<CommentLine>      Me.imgDbFontBold.Visible = .FieldIsDataBound(BindFontBold)</CommentLine>
							<CommentLine>      Me.imgDbFontItalic.Visible = .FieldIsDataBound(BindFontItalic)</CommentLine>
							<CommentLine>      Me.imgDbFontSize.Visible = .FieldIsDataBound(BindFontSize)</CommentLine>
							<CommentLine>      Me.imgDbFontUnderline.Visible = .FieldIsDataBound(BindFontUnderline)</CommentLine>
							<CommentLine>      Me.imgDbTextColor.Visible = .FieldIsDataBound(BindTextColor)</CommentLine>
							<CommentLine>      Me.imgDbTipText.Visible = .FieldIsDataBound(BindTipText)</CommentLine>
							<CommentLine>      Me.imgDbVisible.Visible = .FieldIsDataBound(BindVisible)</CommentLine>
							<CommentLine>   End With</CommentLine>
						</CommentLines>
						<Declaration>Private Sub UpdateDbIcons()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_NetView</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_NetView</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>10</CountOfDeclarationLines>
				<CountOfLines>183</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlArea_OnNewInstance_IsWellDefinedDefault</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ControlArea_OnNewInstance_IsWellDefinedDefault()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea_OnNewInstance_IsSameAsControlAreaForRightDownOrientation</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub WorldDefinitionArea_OnNewInstance_IsSameAsControlAreaForRightDownOrientation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlAreaFromPlaceholder_WhenCalled_LeavesTheTransformerIntact</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetControlAreaFromPlaceholder_WhenCalled_LeavesTheTransformerIntact()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlAreaFromPlaceholder_OnNewInstance_SetsTransformersDeviceDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
							<CommentLine> Act</CommentLine>
						</CommentLines>
						<Declaration>Public Sub SetControlAreaFromPlaceholder_OnNewInstance_SetsTransformersDeviceDefinitionArea()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlAreaFromPlaceholder_OnNewInstance_SetsDeviceDefinitionAreaToTheSameValues</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>24</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetControlAreaFromPlaceholder_OnNewInstance_SetsDeviceDefinitionAreaToTheSameValues()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlAreaFromPlaceholder_OnNewInstance_SetsWorldDefinitionAreaToTheSameValuesForRightDownOrientation</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>24</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetControlAreaFromPlaceholder_OnNewInstance_SetsWorldDefinitionAreaToTheSameValuesForRightDownOrientation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlAreaFromPlaceholder_OnNewInstance_SetsWorldDefinitionAreaOnPlacementPolicyToTheSameValuesForRightDownOrientation</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>24</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetControlAreaFromPlaceholder_OnNewInstance_SetsWorldDefinitionAreaOnPlacementPolicyToTheSameValuesForRightDownOrientation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlAreaFromPlaceholder_WithWorldDefinitionAreaSet_LeavesTheWorldDefinitionAreaIntact</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> Arrange</CommentLine>
						</CommentLines>
						<Declaration>Public Sub SetControlAreaFromPlaceholder_WithWorldDefinitionAreaSet_LeavesTheWorldDefinitionAreaIntact()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>PlacementPolicy_OnNewInstance_IsDefaultPlacementPolicy</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub PlacementPolicy_OnNewInstance_IsDefaultPlacementPolicy()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea_WhenSet_AlsoSetsItOnThePlacementPolicy</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub WorldDefinitionArea_WhenSet_AlsoSetsItOnThePlacementPolicy()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea_WhenSet_RepositionsTheItems</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub WorldDefinitionArea_WhenSet_RepositionsTheItems()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_WithNoParameter_CreatesAnItemWithSomeBusinessId</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AddItem_WithNoParameter_CreatesAnItemWithSomeBusinessId()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_WithAParameter_CreatesAnItemWithThatBusinessId</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AddItem_WithAParameter_CreatesAnItemWithThatBusinessId()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_E2EOrientation</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_E2EOrientation</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>64</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Orientation_OnNewInstance_IsRightDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Orientation_OnNewInstance_IsRightDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Orientation_WhenSet_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Orientation_WhenSet_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Orientation_WhenSetToOtherValue_TurnsItemAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Orientation_WhenSetToOtherValue_TurnsItemAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__DeviceWorldTransformerFactoryMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__DeviceWorldTransformerFactoryMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>31</CountOfLines>
				<Interfaces>
					<Interface>NV_DeviceWorldTransformerFactory</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As zTST__DeviceWorldTransformerFactoryMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__DeviceWorldTransformerFactoryMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ReturnTransformer</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ReturnTransformer(ByVal Value As NV_IDeviceWorldTransformer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_IDeviceWorldTransformer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_DeviceWorldTransformerFactory_CreateTransformer</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_DeviceWorldTransformerFactory_CreateTransformer(ByVal Orientation As OrientationEnum, ByVal DeviceDefinitionArea As NV_DeviceRectangle) As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
							<Parameter>
								<Name>Orientation</Name>
								<Type>OrientationEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeviceDefinitionArea</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Factory</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>Factory</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>17</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NetView</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function NetView(Optional ByVal TransformerFactory As NV_DeviceWorldTransformerFactory) As NV_NetView</Declaration>
						<Parameters>
							<Parameter>
								<Name>TransformerFactory</Name>
								<Type>NV_DeviceWorldTransformerFactory</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_NetView</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_LabelManager</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_LabelManager</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>99</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterLabel_WithVisibleLabel_HidesThatLabel</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterLabel_WithVisibleLabel_HidesThatLabel()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GiveBackLabel_WithVisibleLabel_HidesThatLabel</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GiveBackLabel_WithVisibleLabel_HidesThatLabel()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GiveBackAllLabels_WithVisibleLabels_HidesThoseLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GiveBackAllLabels_WithVisibleLabels_HidesThoseLabels()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterLabels_WithNonNetViewLabelsAndOtherControlTypes_RegistersAllNetViewLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>21</CountOfLines>
						<CommentLines>
							<CommentLine> Assure test setup</CommentLine>
						</CommentLines>
						<Declaration>Public Sub RegisterLabels_WithNonNetViewLabelsAndOtherControlTypes_RegistersAllNetViewLabels()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__Facade</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__Facade</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>37</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Create</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Create() As zTST__Factory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__Factory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Tools</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Tools() As zTST__Tools</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__Tools</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Globals</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Globals() As zTST__Globals</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__Globals</ReturnType>
					</Procedure>
					<Procedure>
						<Name>EnsureIsSetUp</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub EnsureIsSetUp()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Facade</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>Facade</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>21</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Create</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine> Do not log the object lifetime for this class</CommentLine>
						</CommentLines>
						<Declaration>Public Property Get Create() As Factory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Factory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>EnsureSetUp</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub EnsureSetUp()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__ItemFormatterMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__ItemFormatterMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>21</CountOfLines>
				<Interfaces>
					<Interface>NV_ItemFormatter</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>FormatWasCalledWith</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function FormatWasCalledWith(ByVal Label As Access.Label, ByVal SubFormat As ItemSubFormat)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>SubFormat</Name>
								<Type>ItemSubFormat</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_ItemFormatter_Format</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_ItemFormatter_Format(ByVal Label As Label, ByVal SubFormat As ItemSubFormat)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>SubFormat</Name>
								<Type>ItemSubFormat</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_WorldRectangle</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_WorldRectangle</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>128</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Initialize</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub Initialize(ByVal Position1 As Double, ByVal Extent1 As Double, ByVal Position2 As Double, ByVal Extent2 As Double)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position1</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent1</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Position2</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Position1</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Position1() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Extent1</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Extent1() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Position2</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Position2() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Extent2</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Extent2() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AsString</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let AsString(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AsString</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine> Has to be Public to make this work (but why does Friend not work?):</CommentLine>
							<CommentLine> TestNetView.Items(1).WorldArea.AsString</CommentLine>
						</CommentLines>
						<Declaration>Public Property Get AsString() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ReadPosition</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadPosition(ByVal PosAsString As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PosAsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadExtent</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadExtent(ByVal ExtentAsString As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>ExtentAsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleToString</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function DoubleToString(ByVal Number As Double) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Number</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Axis2</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Axis2() As NV_WorldPosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Axis1</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Axis1() As NV_WorldPosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>InitializeFromPosExts</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub InitializeFromPosExts(ByVal Axis1 As NV_WorldPosExt, ByVal Axis2 As NV_WorldPosExt)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Axis1</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Axis2</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Clone</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function Clone() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_NetView_AsItemManager</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_NetView_AsItemManager</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>13</CountOfDeclarationLines>
				<CountOfLines>53</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetItemById_WhenCalledWithPreviouslyAddedBusinessId_ReturnsThatItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetItemById_WhenCalledWithPreviouslyAddedBusinessId_ReturnsThatItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RemoveItem_WhenCalledWithExistingId_RemovesTheItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RemoveItem_WhenCalledWithExistingId_RemovesTheItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_LabelManager</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_LabelManager</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>132</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LabelNamePrefix</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let LabelNamePrefix(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LabelNamePrefix</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get LabelNamePrefix() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>CreateLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub CreateLabels(ByVal FormName As String, ByVal Count As Integer, ByVal StartOffset As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>FormName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Count</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>StartOffset</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterLabel</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterLabel(ByVal Label As Access.Label)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterLabels(ByVal Form As Access.Form)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Form</Name>
								<Type>Access.Form</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsNetViewLabelName</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function IsNetViewLabelName(ByVal LabelName As String) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>LabelName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>UnregisterAllLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub UnregisterAllLabels()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisteredLabelsCount</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get RegisteredLabelsCount() As Integer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Integer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetFreeLabel</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GetFreeLabel() As Access.Label</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Access.Label</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GiveBackLabel</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GiveBackLabel(ByVal Label As Access.Label)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GiveBackAllLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GiveBackAllLabels()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ResetLabel</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ResetLabel(ByVal Label As Access.Label)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetKey</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
							<CommentLine> This is just needed to allow Label to be set to Nothing for testing purposes.</CommentLine>
						</CommentLines>
						<Declaration>Private Function GetKey(ByVal Label As Access.Label) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DeviceManipulationInfo</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DeviceManipulationInfo</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>5</CountOfDeclarationLines>
				<CountOfLines>30</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_DeviceManipulationInfo</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceManipulationInfo</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Delta</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let Delta(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Delta</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Delta() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Kind</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Kind(ByVal Value As ManipulationKind)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>ManipulationKind</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Kind</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Kind() As ManipulationKind</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>ManipulationKind</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Form_frmNetViewProperties</Name>
			<FileName/>
			<PathFileName/>
			<Type>VBADocument</Type>
			<Properties>
				<Property>
					<Value/>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>377</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>VisibleChanged</Name>
						<Declaration>Public Event VisibleChanged()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Form_Open</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Form_Open(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Form_Load</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Form_Load()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Form_Close</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Form_Close()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>fraOrientation_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub fraOrientation_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>chkReadonly_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub chkReadonly_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtReadonly_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtReadonly_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtPosition1_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtPosition1_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtExtent1_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtExtent1_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtPosition2_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtPosition2_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtExtent2_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtExtent2_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBindBusinessIdToField_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtBindBusinessIdToField_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBindTextToField_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtBindTextToField_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBindTipTextToField_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtBindTipTextToField_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtBindBackColorToField_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtBindBackColorToField_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>txtRecordSource_AfterUpdate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub txtRecordSource_AfterUpdate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>btnDatabind_Click</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub btnDatabind_Click()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>btnHide_Click</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub btnHide_Click()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Hide</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Hide()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Show</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Show()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlToObserve</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set ControlToObserve(ByVal Value As NV_NetView)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_NetView</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlToObserve</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ControlToObserve() As NV_NetView</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_NetView</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OnControlChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnControlChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>EnDisableControls</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub EnDisableControls()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadControl</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadControl()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadControlTabOther</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadControlTabOther()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadControlTabMapping</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadControlTabMapping()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadWorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadWorldDefinitionArea()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ReadControlTabDatabinding</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ReadControlTabDatabinding()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetNetViewPropertyOrNull</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetNetViewPropertyOrNull(ByVal PropertyName As String, Optional SubPropertyName As String = vbNullString) As Variant</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>SubPropertyName</Name>
								<Type>String</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>vbNullString</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>Variant</ReturnType>
					</Procedure>
					<Procedure>
						<Name>LetNetViewDataBindingFieldName</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub LetNetViewDataBindingFieldName(ByVal PropertyToBind As BindingProperty, ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetBindingPropertyAsString</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>19</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetBindingPropertyAsString(ByVal PropertyToBind As BindingProperty) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetNetViewDataBindingFieldName</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetNetViewDataBindingFieldName(ByVal PropertyToBind As BindingProperty) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>HaveControlToObserve</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get HaveControlToObserve() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TryLetNetViewProperty</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>28</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TryLetNetViewProperty(ByVal PropertyName As String, ByVal Value As Variant, Optional ByVal ValueForDisplay As String) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Value</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ValueForDisplay</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>InvokeNetViewMethod</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>32</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub InvokeNetViewMethod(ByVal MethodName As String, ParamArray args())</Declaration>
						<Parameters>
							<Parameter>
								<Name>MethodName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>args()</Name>
								<Type/>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>True</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetParamValueAsString</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetParamValueAsString(ByVal Value As Variant) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ShowInfoMessage</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ShowInfoMessage(ByVal ActionDescription As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>ActionDescription</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ShowErrorMessage</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ShowErrorMessage(ByVal ActionDescription As String, ByVal ErrorMessage As String, ByVal ErrorNumber As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>ActionDescription</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ErrorMessage</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ErrorNumber</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_ControlToObserve_OrientationChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_ControlToObserve_OrientationChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_ControlToObserve_WorldDefinitionAreaChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_ControlToObserve_WorldDefinitionAreaChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateOrientationAsText</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateOrientationAsText()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateWorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateWorldDefinitionArea()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetOrientationAsString</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>27</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetOrientationAsString(ByVal Orientation As OrientationEnum) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Orientation</Name>
								<Type>OrientationEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_NetView_WithForm</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_NetView_WithForm</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>13</CountOfDeclarationLines>
				<CountOfLines>183</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BackgroundLabel_Set_SetsAllTheEventHandlerProperties</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub BackgroundLabel_Set_SetsAllTheEventHandlerProperties()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_WithoutALabelRegistered_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AddItem_WithoutALabelRegistered_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_CalledWithOneItemAddedAndASingleLabelRegistered_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> Arrange</CommentLine>
						</CommentLines>
						<Declaration>Public Sub AddItem_CalledWithOneItemAddedAndASingleLabelRegistered_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_CalledTheFirstTimeWithOneLabelRegistered_UsesThatLabelForTheItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AddItem_CalledTheFirstTimeWithOneLabelRegistered_UsesThatLabelForTheItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_CalledTwiceWithTwoLabelsRegistered_UsesTheseLabelsForTheItems</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AddItem_CalledTwiceWithTwoLabelsRegistered_UsesTheseLabelsForTheItems()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_WhenCalled_RaisesItemAddedEvent</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AddItem_WhenCalled_RaisesItemAddedEvent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RemoveItem_WithNonRegisteredItem_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RemoveItem_WithNonRegisteredItem_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RemoveItem_WhenCalled_ReturnsLabelForLaterUse</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RemoveItem_WhenCalled_ReturnsLabelForLaterUse()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TestNetView_ItemAdded</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub TestNetView_ItemAdded(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly_OnNewInstance_IsFalse</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Readonly_OnNewInstance_IsFalse()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly_WhenSet_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Readonly_WhenSet_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem_OnReadonlyProperty_SetsParentReadonlyPropertyOnNewItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AddItem_OnReadonlyProperty_SetsParentReadonlyPropertyOnNewItem()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly_WhenSet_DelegatesToItsItemsParentReadonlyProperty</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Readonly_WhenSet_DelegatesToItsItemsParentReadonlyProperty()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_Types</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_Types</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>7</CountOfDeclarationLines>
				<CountOfLines>7</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Form_frmPlayground</Name>
			<FileName/>
			<PathFileName/>
			<Type>VBADocument</Type>
			<Properties>
				<Property>
					<Value/>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>69</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Form_Open</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>35</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Form_Open(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Form_Close</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Form_Close()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_NetView_BackgroundDoubleClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_NetView_BackgroundDoubleClicked()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_NetView_ItemAdded</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>   Set Item.HorizontalStrategy = NetView.Create.GridDragSizeStrategy(m_NetView.Width / 3, m_NetView.Left)</CommentLine>
							<CommentLine>   Set Item.VerticalStrategy = NetView.Create.GridDragSizeStrategy(m_NetView.Height / 3, m_NetView.Top)</CommentLine>
							<CommentLine>   Item.MaximumHeight = 10 * Item.Border</CommentLine>
							<CommentLine>   Item.MaximumWidth = 20 * Item.Border</CommentLine>
						</CommentLines>
						<Declaration>Private Sub m_NetView_ItemAdded(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_NetView_ItemDoubleClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_NetView_ItemDoubleClicked(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_NetView_ItemMovedSized</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_NetView_ItemMovedSized(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_DeviceWorldTransformer_DownRight</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_DeviceWorldTransformer_DownRight</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>121</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Orientation_OnNewInstance_IsDownRight</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Orientation_OnNewInstance_IsDownRight()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToNothing_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToNothing_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToZeroWidth_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToZeroWidth_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToZeroHeight_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToZeroHeight_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetWorldForUniformTransformation_WithDeviceDefinitionAreaSet_SetsWorldDefinitionAreaAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetWorldForUniformTransformation_WithDeviceDefinitionAreaSet_SetsWorldDefinitionAreaAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformWorldToDevice_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformWorldToDevice_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceToWorld_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformDeviceToWorld_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformWorldVectorToDevice_WithNegativeExtents_ResultsInNegativeWidthAndHeight</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformWorldVectorToDevice_WithNegativeExtents_ResultsInNegativeWidthAndHeight()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceVectorToWorld_WithNegativeWidthAndHeight_ResultsInNegativeExtents</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformDeviceVectorToWorld_WithNegativeWidthAndHeight_ResultsInNegativeExtents()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_BindingInfo</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_BindingInfo</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>33</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>FieldName_WhenSet_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub FieldName_WhenSet_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_DeviceRectangle</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_DeviceRectangle</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>117</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetAsString_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub GetAsString_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LetAsString_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LetAsString_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>InitializeFromPosExts_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>22</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub InitializeFromPosExts_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Horizontal_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Horizontal_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Vertical_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Vertical_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Contains_WithPointInside_ReturnsTrue</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Contains_WithPointInside_ReturnsTrue()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Contains_WithPointOutside_ReturnsFalse</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Row(&quot;( 50, 50)&quot;).Name = &quot;Outside left top&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;(150, 50)&quot;).Name = &quot;Outside center top&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;(250, 50)&quot;).Name = &quot;Outside right top&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;( 50,150)&quot;).Name = &quot;Outside left center&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;(250,150)&quot;).Name = &quot;Outside right top&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;( 50,250)&quot;).Name = &quot;Outside left bottom&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;(150,250)&quot;).Name = &quot;Outside left bottom&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;(250,250)&quot;).Name = &quot;Outside left bottom&quot;</CommentLine>
						</CommentLines>
						<Declaration>Public Sub Contains_WithPointOutside_ReturnsFalse(ByVal PointCoords As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PointCoords</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Clone_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Clone_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__ManipulationKindProviderMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__ManipulationKindProviderMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>63</CountOfLines>
				<Interfaces>
					<Interface>NV_IManipulationKindProvider</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>HorizontalKindAsString</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let HorizontalKindAsString(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>HorizontalKind</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let HorizontalKind(ByVal Value As ManipulationKind)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>ManipulationKind</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>VerticalKindAsString</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let VerticalKindAsString(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>VerticalKind</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let VerticalKind(ByVal Value As ManipulationKind)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>ManipulationKind</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IManipulationKindProvider_GetManipulationKindsFromPosition</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IManipulationKindProvider_GetManipulationKindsFromPosition(ByVal X As Long, ByVal Y As Long) As ManipulationKinds</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>ManipulationKinds</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IManipulationKindProvider_RegisterControlExtent</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Implement zTST__ManipulationKindProviderMock.NV_IManipulationKindProvider_RegisterControlExtent</CommentLine>
							<CommentLine>   Err.Raise 5, , TypeName(Me) &amp; &quot;.NV_IManipulationKindProvider_RegisterControlExtent is not implemented&quot;</CommentLine>
						</CommentLines>
						<Declaration>Private Sub NV_IManipulationKindProvider_RegisterControlExtent(ByVal Width As Long, ByVal Height As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Width</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Height</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetManipulationKindFromString</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetManipulationKindFromString(ByVal ManipulationKindAsString As String) As ManipulationKind</Declaration>
						<Parameters>
							<Parameter>
								<Name>ManipulationKindAsString</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>ManipulationKind</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Log_TypeInfo</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>Log_TypeInfo</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>68</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Initialize/Terminate ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TypeName</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Public Members ___</CommentLine>
						</CommentLines>
						<Declaration>Friend Property Let TypeName(ByVal TypeName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TypeName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TypeName</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get TypeName() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>LifetimeMode</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let LifetimeMode(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LifetimeMode</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get LifetimeMode() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>CurrentInstancesCount</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get CurrentInstancesCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TotalInstancesCount</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get TotalInstancesCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MaximumSimultaneousInstancesCount</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MaximumSimultaneousInstancesCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>RegisterInstance</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterInstance()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UnregisterInstance</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub UnregisterInstance()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_ParentGetter</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_ParentGetter</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>20</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>QueryParent</Name>
						<Declaration>Public Event QueryParent(ByRef Parent As Object)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Parent</Name>
								<Type>Object</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
					</Event>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetParent</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GetParent() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_Item</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_Item</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>385</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Visible_OnNewInstance_IsTrue</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Visible_OnNewInstance_IsTrue()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Visible_WhenChanged_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Visible_WhenChanged_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>VisibleLet_WithLabelPresent_AlsoSetsTheLabelVisibleAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub VisibleLet_WithLabelPresent_AlsoSetsTheLabelVisibleAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly_OnNewInstance_IsFalse</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Readonly_OnNewInstance_IsFalse()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly_WhenChanged_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Readonly_WhenChanged_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ParentReadonly_OnNewInstance_IsFalse</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ParentReadonly_OnNewInstance_IsFalse()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ParentReadonly_WhenChanged_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ParentReadonly_WhenChanged_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LabelSet_WithItemVisible_AlsoSetsTheLabelToVisible</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LabelSet_WithItemVisible_AlsoSetsTheLabelToVisible()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LabelSet_WithItemNotVisible_AlsoSetsTheLabelToNotVisible</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LabelSet_WithItemNotVisible_AlsoSetsTheLabelToNotVisible()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Text_WhenChanged_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine> Act</CommentLine>
						</CommentLines>
						<Declaration>Public Sub Text_WhenChanged_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TextLet_WithLabelPresent_AlsoSetsTheLabelCaptionAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TextLet_WithLabelPresent_AlsoSetsTheLabelCaptionAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TipText_WhenChanged_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TipText_WhenChanged_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TipTextLet_WithLabelPresent_AlsoSetsTheLabelControlTipTextAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TipTextLet_WithLabelPresent_AlsoSetsTheLabelControlTipTextAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BackColorLet_WithLabelPresent_AlsoSetsTheLabelBackColorAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub BackColorLet_WithLabelPresent_AlsoSetsTheLabelBackColorAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LabelSet_WithItemTextSet_AlsoSetsTheLabelCaption</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LabelSet_WithItemTextSet_AlsoSetsTheLabelCaption()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LabelSet_WithItemBackColorSet_AlsoSetsTheLabelBackColor</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LabelSet_WithItemBackColorSet_AlsoSetsTheLabelBackColor()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LabelSet_WithLabelNotNothing_FormatsLabelNormal</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LabelSet_WithLabelNotNothing_FormatsLabelNormal()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldArea_OnNewInstance_IsNullWorldRectangle</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub WorldArea_OnNewInstance_IsNullWorldRectangle()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldArea_WhenSetToNothing_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub WorldArea_WhenSetToNothing_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldArea_WhenSet_ReflectsOnPosition</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub WorldArea_WhenSet_ReflectsOnPosition()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Position1_WhenChanged_CanBeReadBack</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Position1_WhenChanged_CanBeReadBack()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Position1Get_WhenCalled_ReturnsWorldAreaPosition1</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Position1Get_WhenCalled_ReturnsWorldAreaPosition1()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Position1Let_WhenCalled_AlsoSetsWorldAreaPosition1</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Position1Let_WhenCalled_AlsoSetsWorldAreaPosition1()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MouseMove_WithManipulationKinds_GivesCorrectMousePointer</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>28</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Row(&quot;None&quot;,        &quot;None&quot;,        &quot;DefaultPointer&quot;        ).Name = &quot;None/None&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;None&quot;,        &quot;SizeAtBegin&quot;, &quot;SizeNorthSouth&quot;        ).Name = &quot;None/Begin&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;None&quot;,        &quot;SizeAtEnd&quot;,   &quot;SizeNorthSouth&quot;        ).Name = &quot;None/End&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;SizeAtBegin&quot;, &quot;None&quot;,        &quot;SizeWestEast&quot;          ).Name = &quot;Begin/None&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;SizeAtBegin&quot;, &quot;SizeAtBegin&quot;, &quot;SizeNorthWestSouthEast&quot;).Name = &quot;Begin/Begin&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;SizeAtBegin&quot;, &quot;SizeAtEnd&quot;,   &quot;SizeNorthEastSouthWest&quot;).Name = &quot;Begin/End&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;SizeAtEnd&quot;,   &quot;None&quot;,        &quot;SizeWestEast&quot;          ).Name = &quot;End/None&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;SizeAtEnd&quot;,   &quot;SizeAtBegin&quot;, &quot;SizeNorthEastSouthWest&quot;).Name = &quot;End/Begin&quot;</CommentLine>
							<CommentLine> AccUnit:Row(&quot;SizeAtEnd&quot;,   &quot;SizeAtEnd&quot;,   &quot;SizeNorthWestSouthEast&quot;).Name = &quot;End/End&quot;</CommentLine>
						</CommentLines>
						<Declaration>Public Sub MouseMove_WithManipulationKinds_GivesCorrectMousePointer(ByVal HorizontalKind As String, ByVal VerticalKind As String, ByVal ExpectedMousePointer As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalKind</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalKind</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ExpectedMousePointer</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MouseMove_OverOtherAreaWithMouseDown_KeepsTheMousePointerAsOnMouseDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MouseMove_OverOtherAreaWithMouseDown_KeepsTheMousePointerAsOnMouseDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MouseMove_OverReadonlyItem_DoesNotChangeTheMousePointer</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Row(True, False).Name = &quot;The Item itself is read-only.&quot;</CommentLine>
							<CommentLine> AccUnit:Row(False, True).Name = &quot;Just the parent is read-only.&quot;</CommentLine>
							<CommentLine> AccUnit:Row(True, True).Name = &quot;Both parent and item are read-only.&quot;</CommentLine>
						</CommentLines>
						<Declaration>Public Sub MouseMove_OverReadonlyItem_DoesNotChangeTheMousePointer( ByVal Readonly As Boolean, ByVal ParentReadonly As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Readonly</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ParentReadonly</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetSomeTransformer</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetSomeTransformer() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>BusinessId_CannotBeSet_MoreOftenThanOnce</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>49</CountOfLines>
						<CommentLines>
							<CommentLine>Public Sub MinimumWidth_OnNewInstance_IsTwoTimesBorderWidth()</CommentLine>
							<CommentLine>   Assert.AreEqual 2 * Item.Border, Item.MinimumWidth</CommentLine>
							<CommentLine>End Sub</CommentLine>
							<CommentLine/>
							<CommentLine>Public Sub MinimumHeight_OnNewInstance_IsTwoTimesBorderWidth()</CommentLine>
							<CommentLine>   Assert.AreEqual 2 * Item.Border, Item.MinimumHeight</CommentLine>
							<CommentLine>End Sub</CommentLine>
							<CommentLine/>
							<CommentLine>Public Sub MaximumWidth_OnNewInstance_IsMaxInt()</CommentLine>
							<CommentLine>   Assert.AreEqual MaxInt, Item.MaximumWidth</CommentLine>
							<CommentLine>End Sub</CommentLine>
							<CommentLine/>
							<CommentLine>Public Sub MaximumHeight_OnNewInstance_IsMaxInt()</CommentLine>
							<CommentLine>   Assert.AreEqual MaxInt, Item.MaximumHeight</CommentLine>
							<CommentLine>End Sub</CommentLine>
							<CommentLine> TODO: Rephrase this test to test the new way things work</CommentLine>
							<CommentLine>Public Sub OnSizingAtEnd_WithStrategyReturningNegativeExtent_SetsExtentToZero()</CommentLine>
							<CommentLine>   Set Presenter.Strategy = StubStrategy</CommentLine>
							<CommentLine>   StubStrategy.SetExtentTo -123</CommentLine>
							<CommentLine/>
							<CommentLine>   Presenter.OnSizingAtEnd Position, Extent, 0</CommentLine>
							<CommentLine/>
							<CommentLine>   Assert.AreEqual 0, Extent</CommentLine>
							<CommentLine>End Sub</CommentLine>
							<CommentLine> TODO: Rephrase this test to test the new way things work</CommentLine>
							<CommentLine>Public Sub OnSizingAtBegin_WithStrategyGivingNegativeExtent_SetsPositionToEndEdgeAndExtentToZero()</CommentLine>
							<CommentLine>   Position = 100</CommentLine>
							<CommentLine>   Extent = 500</CommentLine>
							<CommentLine>   Set Presenter.Strategy = StubStrategy</CommentLine>
							<CommentLine>   StubStrategy.SetExtentTo -123</CommentLine>
							<CommentLine>   StubStrategy.SetPositionTo 1000</CommentLine>
							<CommentLine/>
							<CommentLine>   Presenter.OnSizingAtBegin Position, Extent, 0</CommentLine>
							<CommentLine/>
							<CommentLine>   Assert.AreEqual 600, Position</CommentLine>
							<CommentLine>   Assert.AreEqual 0, Extent</CommentLine>
							<CommentLine/>
							<CommentLine>End Sub</CommentLine>
						</CommentLines>
						<Declaration>Public Sub BusinessId_CannotBeSet_MoreOftenThanOnce()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__ItemManagerMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__ItemManagerMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>50</CountOfLines>
				<Interfaces>
					<Interface>NV_IItemManager</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Items</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Items(ByVal Index As Integer) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Index</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_AddItem</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IItemManager_AddItem(ByVal Id As Variant) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Id</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_GetItemById</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IItemManager_GetItemById(ByVal Id As Variant) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Id</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_ItemCount</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IItemManager_ItemCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_GetItemByOrdinal</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Implement zTST__ItemManagerMock.NV_IItemManager_GetItemByOrdinal</CommentLine>
						</CommentLines>
						<Declaration>Private Function NV_IItemManager_GetItemByOrdinal(ByVal Index As Long) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Index</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_RemoveItem</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Implement zTST__ItemManagerMock.NV_IItemManager_RemoveItem</CommentLine>
						</CommentLines>
						<Declaration>Private Sub NV_IItemManager_RemoveItem(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__Tools</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__Tools</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>53</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>EnsureTestFormIsClosed</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub EnsureTestFormIsClosed()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetMousePointerStyleAsString</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GetMousePointerStyleAsString(ByVal MousePointerStyle As MousePointerStyleEnum) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>MousePointerStyle</Name>
								<Type>MousePointerStyleEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>RememberPendingInstances</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RememberPendingInstances()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AssertPendingInstances</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AssertPendingInstances()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__DeviceWorldTransformerMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__DeviceWorldTransformerMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>8</CountOfDeclarationLines>
				<CountOfLines>83</CountOfLines>
				<Interfaces>
					<Interface>NV_IDeviceWorldTransformer</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As zTST__DeviceWorldTransformerMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__DeviceWorldTransformerMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AsTransformerInterface</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get AsTransformerInterface() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_Initialize(ByVal DeviceDefinitionArea As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>DeviceDefinitionArea</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_DeviceDefinitionArea(ByVal Value As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_DeviceDefinitionArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Orientation</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Property Let NV_IDeviceWorldTransformer_Orientation(ByVal RHS As OrientationEnum)</Declaration>
						<Parameters>
							<Parameter>
								<Name>RHS</Name>
								<Type>OrientationEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Orientation</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_Orientation() As OrientationEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>OrientationEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Self</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_Self() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldVectorToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldVectorToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_WorldDefinitionArea(ByVal RHS As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>RHS</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_SetWorldForUniformTransformation</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_SetWorldForUniformTransformation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV__Tools</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV__Tools</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>18</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>CreateLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub CreateLabels(ByVal Form As Access.Form, ByVal Count As Integer, Optional ByVal StartOffset As Long = 1)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Form</Name>
								<Type>Access.Form</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Count</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>StartOffset</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>1</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DeviceWorldTransformer_DownRight</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DeviceWorldTransformer_DownRight</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>187</CountOfLines>
				<Interfaces>
					<Interface>NV_IDeviceWorldTransformer</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_DeviceWorldTransformer_UpRight</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceWorldTransformer_UpRight</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MeAsTransformer</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get MeAsTransformer() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_Initialize(ByVal DeviceDefinitionArea As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>DeviceDefinitionArea</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Orientation</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_Orientation() As OrientationEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>OrientationEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_DeviceDefinitionArea(ByVal Value As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_DeviceDefinitionArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_SetWorldForUniformTransformation</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_SetWorldForUniformTransformation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateParameters</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateParameters()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetPositiveMappingParams</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL?</CommentLine>
						</CommentLines>
						<Declaration>Private Function GetPositiveMappingParams(ByVal WorldAxis As NV_WorldPosExt, ByVal DeviceAxis As NV_DevicePosExt) As NV_MappingParams</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldAxis</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeviceAxis</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_MappingParams</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt, ByVal Normalize As Boolean) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDevicePosExt</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL</CommentLine>
						</CommentLines>
						<Declaration>Private Function TransformDevicePosExt(ByVal DevicePosExt As NV_DevicePosExt, ByVal Mapping As NV_MappingParams, ByVal Normalize As Boolean) As NV_WorldPosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>DevicePosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Transform</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function Transform(ByVal Value As Double, ByVal Mapping As NV_MappingParams) As Double</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldVectorToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldVectorToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle, ByVal Normalize As Boolean) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldPosExt</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL</CommentLine>
						</CommentLines>
						<Declaration>Private Function TransformWorldPosExt(ByVal WorldPosExt As NV_WorldPosExt, ByVal Mapping As NV_MappingParams, ByVal Normalize As Boolean) As NV_DevicePosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldPosExt</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformInverse</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformInverse(ByVal Value As Double, ByVal Mapping As NV_MappingParams) As Double</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_IManipulationKindProvider</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_IManipulationKindProvider</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>11</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>RegisterControlExtent</Name>
						<Scope/>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Sub RegisterControlExtent(ByVal Width As Long, ByVal Height As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Width</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Height</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetManipulationKindsFromPosition</Name>
						<Scope/>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Function GetManipulationKindsFromPosition(ByVal X As Long, ByVal Y As Long) As ManipulationKinds</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>ManipulationKinds</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Form_zTST_TestForm</Name>
			<FileName/>
			<PathFileName/>
			<Type>VBADocument</Type>
			<Properties>
				<Property>
					<Value/>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>25</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Form_Open</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Form_Open(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Form_Close</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Form_Close()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NetView</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get NetView() As NV_NetView</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_NetView</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_IPlacementPolicy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_IPlacementPolicy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>13</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>WorldDefinitionArea</Name>
						<Scope/>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Property Set WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea</Name>
						<Scope/>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>2</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Property Get WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ResetLayout</Name>
						<Scope/>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Sub ResetLayout()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetWorldAreaOnDatabinding</Name>
						<Scope/>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Function GetWorldAreaOnDatabinding(ByVal OriginalWorldArea As NV_WorldRectangle) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>OriginalWorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>_ToDos</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>_ToDos</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>22</CountOfDeclarationLines>
				<CountOfLines>22</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
				</Procedures>
				<CommentLines>
					<CommentLine> ToDos</CommentLine>
					<CommentLine> Tests: rearrange tests</CommentLine>
					<CommentLine>  new fixture for PlacementPolicy-tests</CommentLine>
					<CommentLine>  look through NetView/Item Tests: are they clustered meaningfully?</CommentLine>
					<CommentLine> DataBinder: Support all scenarios</CommentLine>
					<CommentLine>  Update of existing item</CommentLine>
					<CommentLine>  Addition of new item</CommentLine>
					<CommentLine>  Deletion of old items</CommentLine>
					<CommentLine> _while maintaining items-objects that already exist_!</CommentLine>
					<CommentLine> IPlacementPolicy</CommentLine>
					<CommentLine>  methods to come later:</CommentLine>
					<CommentLine>     GetWorldAreaOnDragging</CommentLine>
					<CommentLine>     GetWorldAreaOnDropping</CommentLine>
					<CommentLine> NV_NetView: Make the placeholder required for initialization</CommentLine>
					<CommentLine>             (don&apos;t use factory in the normal unit (= non-E2E) tests</CommentLine>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_Item</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_Item</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>31</CountOfDeclarationLines>
				<CountOfLines>594</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>MovedSized</Name>
						<Declaration>Public Event MovedSized()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>Clicked</Name>
						<Declaration>Public Event Clicked()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>DoubleClicked</Name>
						<Declaration>Public Event DoubleClicked()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_Item</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Key</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let Key(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Key</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Key() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Label</Name>
						<Scope>Friend</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Set Label(ByVal Value As Access.Label)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Label</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Label() As Access.Label</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Access.Label</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>-- Available just for testing purposes - ev. make available only through interface</CommentLine>
						</CommentLines>
						<Declaration>Friend Property Let Left(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Left() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>-- Available just for testing purposes - ev. make available only through interface</CommentLine>
						</CommentLines>
						<Declaration>Friend Property Let Width(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Width() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>-- Available just for testing purposes - ev. make available only through interface</CommentLine>
						</CommentLines>
						<Declaration>Friend Property Let Top(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Top() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>-- Available just for testing purposes - ev. make available only through interface</CommentLine>
						</CommentLines>
						<Declaration>Friend Property Let Height(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Height() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WorldArea</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set WorldArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldArea</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get WorldArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Position1</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Position1(ByVal Value As Double)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Position1</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Position1() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ClippingArea</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set ClippingArea(ByVal Value As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingArea</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClippingArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>VirtualArea</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get VirtualArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlArea</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ControlArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Visible</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Visible(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Visible</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Visible() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Readonly</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Readonly(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Readonly() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ParentReadonly</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let ParentReadonly(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ParentReadonly</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ParentReadonly() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ActuallyReadonly</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get ActuallyReadonly() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>SetupLabel</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>36</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: Will become swallowed by something like Property Set Policy</CommentLine>
							<CommentLine>Public Property Set HorizontalStrategy(ByVal Value As NV_IDragSizeStrategy)</CommentLine>
							<CommentLine>   Set m_HorizontalPresenter.Strategy = Value</CommentLine>
							<CommentLine>End Property</CommentLine>
							<CommentLine> TODO: Will become swallowed by something like Property Set Policy</CommentLine>
							<CommentLine>Public Property Set VerticalStrategy(ByVal Value As NV_IDragSizeStrategy)</CommentLine>
							<CommentLine>   Set m_VerticalPresenter.Strategy = Value</CommentLine>
							<CommentLine>End Property</CommentLine>
						</CommentLines>
						<Declaration>Private Sub SetupLabel()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_Label_MouseDown</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_Label_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Button</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Shift</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>X</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_Label_MouseUp</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_Label_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Button</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Shift</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>X</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_Label_MouseMove</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>25</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_Label_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Button</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Shift</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>X</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_Label_DblClick</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_Label_DblClick(ByRef Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetMousePointerStyleFromManipulationKinds</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>41</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetMousePointerStyleFromManipulationKinds(ByRef ManipulationKinds As ManipulationKinds) As MousePointerStyleEnum</Declaration>
						<Parameters>
							<Parameter>
								<Name>ManipulationKinds</Name>
								<Type>ManipulationKinds</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>MousePointerStyleEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetManipulationKinds</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetManipulationKinds(ByVal X As Long, ByVal Y As Long) As ManipulationKinds</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>ManipulationKinds</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OnWorldAreaChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: Application of policy at world level</CommentLine>
						</CommentLines>
						<Declaration>Private Sub OnWorldAreaChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateControlPosition</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub UpdateControlPosition()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnMovedSized</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnMovedSized()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnClicked()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnDblClick</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnDblClick()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ParentGetter</Name>
						<Scope>Friend</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Set ParentGetter(ByVal Value As NV_ParentGetter)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_ParentGetter</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ParentGetter</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ParentGetter() As NV_ParentGetter</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_ParentGetter</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetParent</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetParent() As NV_NetView</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_NetView</ReturnType>
					</Procedure>
					<Procedure>
						<Name>SetControlLeftWidth</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub SetControlLeftWidth(ByVal Presenter As NV_CoordinatePresenter)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Presenter</Name>
								<Type>NV_CoordinatePresenter</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlTopHeight</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub SetControlTopHeight(ByVal Presenter As NV_CoordinatePresenter)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Presenter</Name>
								<Type>NV_CoordinatePresenter</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlLeft</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let ControlLeft(ByVal Value As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlLeft</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ControlLeft() As Integer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Integer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlTop</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let ControlTop(ByVal Value As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlTop</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ControlTop() As Integer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Integer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlWidth</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let ControlWidth(ByVal Value As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlWidth</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ControlWidth() As Integer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Integer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlHeight</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let ControlHeight(ByVal Value As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ControlHeight</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ControlHeight() As Integer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Integer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlCaption</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let ControlCaption(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Caption</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Caption(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Caption</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Caption() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MousePointerIsOutside</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub MousePointerIsOutside()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MousePointerStyle</Name>
						<Scope>Private</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Let MousePointerStyle(ByVal Value As MousePointerStyleEnum)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>MousePointerStyleEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MousePointerTool</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set MousePointerTool(ByVal Value As NV_MousePointerTool)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_MousePointerTool</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MousePointerTool</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MousePointerTool() As NV_MousePointerTool</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MousePointerTool</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Transformer</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set Transformer(ByVal Value As NV_IDeviceWorldTransformer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_IDeviceWorldTransformer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Transformer</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Transformer() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OnTransformerChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnTransformerChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateWorldArea</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateWorldArea()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BusinessId</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let BusinessId(ByVal Value As Variant)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BusinessId</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get BusinessId() As Variant</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Variant</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Text</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let Text(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Text</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Text() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TipText</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let TipText(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TipText</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get TipText() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>BackColor</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let BackColor(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BackColor</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get BackColor() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Formatter</Name>
						<Scope>Friend</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Set Formatter(ByVal Value As NV_ItemFormatter)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_ItemFormatter</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ManipulationKindProvider</Name>
						<Scope>Friend</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> For testing purposes only</CommentLine>
						</CommentLines>
						<Declaration>Friend Property Set ManipulationKindProvider(ByVal Value As NV_IManipulationKindProvider)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_IManipulationKindProvider</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ManipulationKindProvider</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get ManipulationKindProvider() As NV_IManipulationKindProvider</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IManipulationKindProvider</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DatabindingGenerationFlag</Name>
						<Scope>Friend</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Let DatabindingGenerationFlag(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DatabindingGenerationFlag</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get DatabindingGenerationFlag() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>IsDatabound</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let IsDatabound(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsDatabound</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get IsDatabound() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__StubDragSizeStrategy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__StubDragSizeStrategy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>30</CountOfLines>
				<Interfaces>
					<Interface>NV_IDragSizeStrategy</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>SetPositionTo</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetPositionTo(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetExtentTo</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetExtentTo(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnNewPosition</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnNewPosition(ByRef Position As Long, ByVal Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtBegin</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnSizingAtBegin(ByRef Position As Long, ByRef Extent As Long, ByVal Extent2 As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDragSizeStrategy_OnSizingAtEnd</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDragSizeStrategy_OnSizingAtEnd(ByVal Position As Long, ByRef Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>PG_NetViewPropertiesFormManager</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>PG_NetViewPropertiesFormManager</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>10</CountOfDeclarationLines>
				<CountOfLines>111</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>VisibleChanged</Name>
						<Declaration>Public Event VisibleChanged()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As PG_NetViewPropertiesFormManager</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>PG_NetViewPropertiesFormManager</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Initialize</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub Initialize(ByVal TheNetView As NV_NetView)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheNetView</Name>
								<Type>NV_NetView</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Update</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Update()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Visible</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Visible(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Visible</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Visible() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>IsPropertiesFormOpen</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function IsPropertiesFormOpen() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OpenPropertiesForm</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OpenPropertiesForm()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>HidePropertiesDialog</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub HidePropertiesDialog()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ShowPropertiesDialog</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ShowPropertiesDialog()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsPropertiesFormVisible</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function IsPropertiesFormVisible() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>UpdatePropertiesFormReference</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdatePropertiesFormReference()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_PropertiesForm_VisibleChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_PropertiesForm_VisibleChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV__Proxies</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV__Proxies</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>19</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>NetView</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get NetView() As NV__Facade</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV__Facade</ReturnType>
					</Procedure>
					<Procedure>
						<Name>EnsureIsSetUp</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub EnsureIsSetUp()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__Globals</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__Globals</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>6</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>PG_Proxies</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>PG_Proxies</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>19</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Playground</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Playground() As PG_Facade</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>PG_Facade</ReturnType>
					</Procedure>
					<Procedure>
						<Name>EnsureSetUp</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub EnsureSetUp()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_MousePointerTool</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_MousePointerTool</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>16</CountOfDeclarationLines>
				<CountOfLines>40</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_MousePointerTool</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MousePointerTool</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Style</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Style(ByVal Value As MousePointerStyleEnum)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>MousePointerStyleEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Style</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Style() As MousePointerStyleEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>MousePointerStyleEnum</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_BindingInfo</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_BindingInfo</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>4</CountOfDeclarationLines>
				<CountOfLines>26</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_BindingInfo</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_BindingInfo</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Initialize</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Initialize(ByVal FieldName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>FieldName</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let FieldName(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>FieldName</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get FieldName() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_WorldPosExt</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_WorldPosExt</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>5</CountOfDeclarationLines>
				<CountOfLines>30</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_WorldPosExt</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Position</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Position(ByVal Value As Double)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Position</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Position() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Extent</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Extent(ByVal Value As Double)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Extent</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Extent() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_NetView</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_NetView</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>46</CountOfDeclarationLines>
				<CountOfLines>606</CountOfLines>
				<Interfaces>
					<Interface>NV_IItemManager</Interface>
				</Interfaces>
				<Events>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>OrientationChanged</Name>
						<Declaration>Public Event OrientationChanged()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>BackgroundClicked</Name>
						<Declaration>Public Event BackgroundClicked()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>BackgroundDoubleClicked</Name>
						<Declaration>Public Event BackgroundDoubleClicked()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>ItemAdded</Name>
						<Declaration>Public Event ItemAdded(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>ItemMovedSized</Name>
						<Declaration>Public Event ItemMovedSized(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>ItemClicked</Name>
						<Declaration>Public Event ItemClicked(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>ItemDoubleClicked</Name>
						<Declaration>Public Event ItemDoubleClicked(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
					</Event>
					<Event>
						<CommentLines>
						</CommentLines>
						<Name>WorldDefinitionAreaChanged</Name>
						<Declaration>Public Event WorldDefinitionAreaChanged()</Declaration>
						<Parameters>
						</Parameters>
					</Event>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>32</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Initialize/Terminate ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Public Members ___</CommentLine>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_NetView</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_NetView</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Initialize</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub Initialize(ByVal TransformerFactory As NV_DeviceWorldTransformerFactory)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TransformerFactory</Name>
								<Type>NV_DeviceWorldTransformerFactory</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetControlAreaFromPlaceholder</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
							<CommentLine> Datatype Object is used here to support multiple controls as well as fake objects for testing.</CommentLine>
						</CommentLines>
						<Declaration>Public Sub SetControlAreaFromPlaceholder(ByVal Placeholder As Object)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Placeholder</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine>@The left coordinate in Twips.</CommentLine>
						</CommentLines>
						<Declaration>Public Property Let Left(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Left</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Left() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Top(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Top</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Top() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Width(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Width</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Width() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Height(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Height</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Height() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ControlArea</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ControlArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>SetClippingAreaFromPlaceholder</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetClippingAreaFromPlaceholder(ByVal PlaceholderControl As Access.Control)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PlaceholderControl</Name>
								<Type>Access.Control</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaLeft</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let ClippingAreaLeft(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaLeft</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClippingAreaLeft() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaTop</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let ClippingAreaTop(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaTop</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClippingAreaTop() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaWidth</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let ClippingAreaWidth(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaWidth</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClippingAreaWidth() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaHeight</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let ClippingAreaHeight(ByVal Value As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClippingAreaHeight</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ClippingAreaHeight() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Orientation</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Orientation(ByVal Value As OrientationEnum)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>OrientationEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Orientation</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Orientation() As OrientationEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>OrientationEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OnTransformerChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnTransformerChanged(ByVal OldTransformer As NV_IDeviceWorldTransformer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>OldTransformer</Name>
								<Type>NV_IDeviceWorldTransformer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateItemsOnTransformerChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateItemsOnTransformerChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BackgroundLabel</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set BackgroundLabel(ByVal Value As Access.Label)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BackgroundLabel</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get BackgroundLabel() As Access.Label</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Access.Label</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Position2Groups</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> ToDo: Implement NV_NetView.Position2Groups</CommentLine>
						</CommentLines>
						<Declaration>Public Property Get Position2Groups() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>RegisterLabel</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RegisterLabel(ByVal Label As Access.Label)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterLabels</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
							<CommentLine>:!Registers label controls for the use with the NetView control.</CommentLine>
							<CommentLine>:@Form: The form from which the labels shall be collected</CommentLine>
							<CommentLine>:@LabelNamePrefix: The string the name of label must start with to be registered by this method.</CommentLine>
							<CommentLine>::Use this method to collect multiple labels on the form at once.</CommentLine>
							<CommentLine>::All the labels that have to be collected using this method must have</CommentLine>
							<CommentLine>::a common beginning of their names.</CommentLine>
							<CommentLine>This is just a non-documentation remark.</CommentLine>
						</CommentLines>
						<Declaration>Public Sub RegisterLabels(ByVal Form As Access.Form, Optional ByVal LabelNamePrefix As String = vbNullString)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Form</Name>
								<Type>Access.Form</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>LabelNamePrefix</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>vbNullString</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UnregisterAllLabels</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Just for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub UnregisterAllLabels()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddItem</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AddItem(Optional ByVal BusinessId As Variant) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>BusinessId</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>RemoveItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub RemoveItem(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBinding</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
							<CommentLine>Public Property Set DataBinding(ByVal PropertyToBind As BindingProperty, ByVal Value As NV_BindingInfo)</CommentLine>
							<CommentLine>   Set m_DataBindings(PropertyToBind) = Value</CommentLine>
							<CommentLine>End Property</CommentLine>
						</CommentLines>
						<Declaration>Public Property Get DataBinding(ByVal PropertyToBind As BindingProperty) As NV_BindingInfo</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_BindingInfo</ReturnType>
					</Procedure>
					<Procedure>
						<Name>BindItemBusinessIdTo</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub BindItemBusinessIdTo(ByVal FieldName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BindItemTextTo</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub BindItemTextTo(ByVal FieldName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BindItemTipTextTo</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub BindItemTipTextTo(ByVal FieldName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BindItemBackColorTo</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub BindItemBackColorTo(ByVal FieldName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BindBindablePropertyTo</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub BindBindablePropertyTo(ByVal PropertyToBind As BindingProperty, ByVal FieldName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>PropertyToBind</Name>
								<Type>BindingProperty</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>FieldName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataBind</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DataBind()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_AddItem</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IItemManager_AddItem(ByVal Id As Variant) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Id</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_GetItemByOrdinal</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IItemManager_GetItemByOrdinal(ByVal Index As Long) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Index</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_ItemCount</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IItemManager_ItemCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_RemoveItem</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IItemManager_RemoveItem(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IItemManager_GetItemById</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IItemManager_GetItemById(ByVal Id As Variant) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Id</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>CreateItem</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function CreateItem(ByVal Label As Access.Label) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>RecordSource</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let RecordSource(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RecordSource</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get RecordSource() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MinimumValue</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let MinimumValue(ByVal Value As Variant)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MinimumValue</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MinimumValue() As Variant</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Variant</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MaximumValue</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let MaximumValue(ByVal Value As Variant)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MaximumValue</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MaximumValue() As Variant</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Variant</ReturnType>
					</Procedure>
					<Procedure>
						<Name>LaneDescriminator</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let LaneDescriminator(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LaneDescriminator</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get LaneDescriminator() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DataSourceBeginField</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let DataSourceBeginField(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataSourceBeginField</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get DataSourceBeginField() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DataSourceEndField</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let DataSourceEndField(ByVal Value As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DataSourceEndField</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get DataSourceEndField() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Requery</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine> TODO</CommentLine>
						</CommentLines>
						<Declaration>Public Sub Requery()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NotifyItemMovedSized</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Friend Members ___</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub NotifyItemMovedSized(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NotifyItemClicked</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub NotifyItemClicked(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NotifyItemDoubleClicked</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Sub NotifyItemDoubleClicked(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Items</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Items() As VBA.Collection</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>VBA.Collection</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Factory</Name>
						<Scope>Friend</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Set Factory(ByVal Value As NV__Factory)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV__Factory</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Factory</Name>
						<Scope>Friend</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Friend Property Get Factory() As NV__Factory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV__Factory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformerFactory</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set TransformerFactory(ByVal Value As NV_DeviceWorldTransformerFactory)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DeviceWorldTransformerFactory</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformerFactory</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get TransformerFactory() As NV_DeviceWorldTransformerFactory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceWorldTransformerFactory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MousePointerTool</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set MousePointerTool(ByVal Value As NV_MousePointerTool)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_MousePointerTool</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MousePointerTool</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MousePointerTool() As NV_MousePointerTool</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MousePointerTool</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Transformer</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Transformer() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get DeviceDefinitionArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionArea</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Create</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Private Members ___</CommentLine>
						</CommentLines>
						<Declaration>Private Property Get Create() As NV__Factory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV__Factory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>CreateTransformer</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function CreateTransformer(ByVal Orientation As OrientationEnum) As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
							<Parameter>
								<Name>Orientation</Name>
								<Type>OrientationEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_BackgroundLabel_Click</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_BackgroundLabel_Click()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_BackgroundLabel_DblClick</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_BackgroundLabel_DblClick(Cancel As Integer)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Cancel</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_BackgroundLabel_MouseDown</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_BackgroundLabel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Button</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Shift</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>X</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_BackgroundLabel_MouseMove</Name>
						<Scope>Friend</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
							<CommentLine> Friend for testing purposes</CommentLine>
						</CommentLines>
						<Declaration>Friend Sub m_BackgroundLabel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Button</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Shift</Name>
								<Type>Integer</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>X</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Single</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MoveWorldDefinitionAreaBy</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>25</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub MoveWorldDefinitionAreaBy(ByVal DeltaX As Long, ByVal DeltaY As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>DeltaX</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeltaY</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_ParentGetter_QueryParent</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_ParentGetter_QueryParent(ByRef Parent As Object)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Parent</Name>
								<Type>Object</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>PlacementPolicy</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set PlacementPolicy(ByVal Value As NV_IPlacementPolicy)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_IPlacementPolicy</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>PlacementPolicy</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get PlacementPolicy() As NV_IPlacementPolicy</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IPlacementPolicy</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OnWorldDefinitionAreaChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub OnWorldDefinitionAreaChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Redraw</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Redraw()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Readonly(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Readonly</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Readonly() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_IDragSizeStrategy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_IDragSizeStrategy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>11</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>OnNewPosition</Name>
						<Scope/>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Sub OnNewPosition(ByRef Position As Long, ByVal Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnSizingAtEnd</Name>
						<Scope/>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Sub OnSizingAtEnd(ByVal Position As Long, ByRef Extent As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OnSizingAtBegin</Name>
						<Scope/>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Sub OnSizingAtBegin(ByRef Position As Long, ByRef Extent As Long, ByVal Extent2 As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Position</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent</Name>
								<Type>Long</Type>
								<IsByVal>False</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Extent2</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_DeviceWorldTransformer_RightDown</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_DeviceWorldTransformer_RightDown</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>121</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Orientation_OnNewInstance_IsRightDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Orientation_OnNewInstance_IsRightDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToNothing_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToNothing_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToZeroWidth_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToZeroWidth_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DeviceDefinitionArea_SetToZeroHeight_RaisesProperError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DeviceDefinitionArea_SetToZeroHeight_RaisesProperError()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>SetWorldForUniformTransformation_WithDeviceDefinitionAreaSet_SetsWorldDefinitionAreaAccordingly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub SetWorldForUniformTransformation_WithDeviceDefinitionAreaSet_SetsWorldDefinitionAreaAccordingly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformWorldToDevice_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformWorldToDevice_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceToWorld_HappyPath</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformDeviceToWorld_HappyPath()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformWorldVectorToDevice_WithNegativeExtents_ResultsInNegativeWidthAndHeight</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformWorldVectorToDevice_WithNegativeExtents_ResultsInNegativeWidthAndHeight()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceVectorToWorld_WithNegativeWidthAndHeight_ResultsInNegativeExtents</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TransformDeviceVectorToWorld_WithNegativeWidthAndHeight_ResultsInNegativeExtents()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__NetViewTestWrapper</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__NetViewTestWrapper</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>15</CountOfDeclarationLines>
				<CountOfLines>204</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine/>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As zTST__NetViewTestWrapper</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__NetViewTestWrapper</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TheNetView</Name>
						<Scope>Public</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Set TheNetView(ByVal Value As NV_NetView)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_NetView</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TheNetView</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get TheNetView() As NV_NetView</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_NetView</ReturnType>
					</Procedure>
					<Procedure>
						<Name>FactoryMock</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get FactoryMock() As zTST__NetViewFactoryMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__NetViewFactoryMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MousePointerToolMock</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MousePointerToolMock() As zTST__MousePointerToolMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__MousePointerToolMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MoveMousePointerToItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MoveMousePointerToItem(ByVal TestItem As zTST__ItemTestWrapper, ByVal HRegion As HorizontalLabelRegion, ByVal VRegion As VerticalLabelRegion)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TestItem</Name>
								<Type>zTST__ItemTestWrapper</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>HRegion</Name>
								<Type>HorizontalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VRegion</Name>
								<Type>VerticalLabelRegion</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MoveMousePointerTo</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MoveMousePointerTo(ByVal X As Long, ByVal Y As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MoveMousePointerBy</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub MoveMousePointerBy(ByVal X As Long, ByVal Y As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickInTheBackground</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickInTheBackground()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>DoubleClickInTheBackground</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub DoubleClickInTheBackground()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>PressLeftMouseButtonInTheBackground</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub PressLeftMouseButtonInTheBackground(ByVal X As Long, ByVal Y As Long)</Declaration>
						<Parameters>
							<Parameter>
								<Name>X</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Y</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetItemUnderMousePointer</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>28</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetItemUnderMousePointer() As zTST__ItemTestWrapper</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__ItemTestWrapper</ReturnType>
					</Procedure>
					<Procedure>
						<Name>IsItemUnderMousePointer</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function IsItemUnderMousePointer(ByVal Item As NV_Item) As Boolean</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetTopItem</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> TODO: implement zTST__NetViewTestWrapper.GetTopItem</CommentLine>
						</CommentLines>
						<Declaration>Private Function GetTopItem(ByVal Items As VBA.Collection) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Items</Name>
								<Type>VBA.Collection</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>MousePointerIsDefault</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get MousePointerIsDefault() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_ItemMovedSized</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_ItemMovedSized(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AssertEventItemMovedSizedWasCalledWith</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AssertEventItemMovedSizedWasCalledWith(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_ItemClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_ItemClicked(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AssertEventItemClickedWasCalledWith</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AssertEventItemClickedWasCalledWith(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_ItemDoubleClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_ItemDoubleClicked(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AssertEventItemDoubleClickedWasCalledWith</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub AssertEventItemDoubleClickedWasCalledWith(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_ItemAdded</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_ItemAdded(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ItemAddedWasCalled</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get ItemAddedWasCalled() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_OrientationChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_OrientationChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>OrientationChangedWasRaised</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get OrientationChangedWasRaised() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_BackgroundClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_BackgroundClicked()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_BackgroundDoubleClicked</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_BackgroundDoubleClicked()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>BackgroundClickedWasRaised</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get BackgroundClickedWasRaised() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>BackgroundDoubleClickedWasRaised</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get BackgroundDoubleClickedWasRaised() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>m_TheNetView_WorldDefinitionAreaChanged</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub m_TheNetView_WorldDefinitionAreaChanged()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WorldDefinitionAreaChangedWasRaised</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get WorldDefinitionAreaChangedWasRaised() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>LatestItem</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get LatestItem() As zTST__ItemTestWrapper</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__ItemTestWrapper</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>AccUnit_TestClassFactory</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>AccUnit_TestClassFactory</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>3</CountOfDeclarationLines>
				<CountOfLines>88</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_BindingInfo</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_BindingInfo() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_CoordinatePresenter</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_CoordinatePresenter() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_DataBinder</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_DataBinder() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_DefaultDragSizeStrategy</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_DefaultDragSizeStrategy() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_DefaultPlacementPolicy</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_DefaultPlacementPolicy() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_DeviceRectangle</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_DeviceRectangle() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_DeviceWorldTransformer_DownRight</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_DeviceWorldTransformer_DownRight() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_DeviceWorldTransformer_RightDown</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_DeviceWorldTransformer_RightDown() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_DeviceWorldTransformer_UpRight</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_DeviceWorldTransformer_UpRight() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_E2EDatabinding</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_E2EDatabinding() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_E2EInteraction</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_E2EInteraction() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_E2EInteraction_Global</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_E2EInteraction_Global() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_E2EOrientation</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_E2EOrientation() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_Item</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_Item() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_LabelManager</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_LabelManager() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_NetView</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_NetView() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_NetView_AsItemManager</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_NetView_AsItemManager() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_NetView_WithForm</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_NetView_WithForm() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_NetViewEvents</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_NetViewEvents() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_WorkingRangePolicy</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_WorkingRangePolicy() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
					<Procedure>
						<Name>AccUnitTestClassFactory_zTST_WorldRectangle</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function AccUnitTestClassFactory_zTST_WorldRectangle() As Object</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Object</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_MappingParams</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_MappingParams</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>5</CountOfDeclarationLines>
				<CountOfLines>30</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As NV_MappingParams</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_MappingParams</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Factor</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Factor(ByVal Value As Double)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Factor</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Factor() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Offset</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let Offset(ByVal Value As Double)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Offset</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Offset() As Double</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_WorkingRangePolicy</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_WorkingRangePolicy</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>355</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Dummy</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Ignore(&quot;Dummy test until first real tests comes in here.&quot;)</CommentLine>
						</CommentLines>
						<Declaration>Public Sub Dummy()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DeviceWorldTransformerFactory</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DeviceWorldTransformerFactory</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>45</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>CreateTransformer</Name>
						<Scope/>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>35</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Function CreateTransformer(ByVal Orientation As OrientationEnum, ByVal DeviceDefinitionArea As NV_DeviceRectangle) As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
							<Parameter>
								<Name>Orientation</Name>
								<Type>OrientationEnum</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeviceDefinitionArea</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>PG_Factory</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>PG_Factory</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>14</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>NetViewPropertiesFormManager</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function NetViewPropertiesFormManager(ByVal TheNetView As NV_NetView) As PG_NetViewPropertiesFormManager</Declaration>
						<Parameters>
							<Parameter>
								<Name>TheNetView</Name>
								<Type>NV_NetView</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>PG_NetViewPropertiesFormManager</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ItemPropertiesFormManager</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function ItemPropertiesFormManager() As PG_ItemPropertiesFormManager</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>PG_ItemPropertiesFormManager</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV__Facade</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV__Facade</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>5</CountOfDeclarationLines>
				<CountOfLines>31</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Create</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Create() As NV__Factory</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV__Factory</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Tools</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>7</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Tools() As NV__Tools</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV__Tools</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Log_InstanceInfo</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>Log_InstanceInfo</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>5</CountOfDeclarationLines>
				<CountOfLines>13</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine>   Logging.LogClassInitialize Me</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
							<CommentLine>   Logging.LogClassTerminate Me</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST_E2EInteraction</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST_E2EInteraction</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>11</CountOfDeclarationLines>
				<CountOfLines>159</CountOfLines>
				<Interfaces>
					<Interface>SimplyVBUnit.ITestFixture</Interface>
					<Interface>AccUnit_Integration.ITestManagerBridge</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>ITestManagerBridge_InitTestManager</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestManagerBridge_InitTestManager(ByVal NewTestManager As AccUnit_Integration.ITestManagerComInterface): Set TestManager = NewTestManager: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>NewTestManager</Name>
								<Type>AccUnit_Integration.ITestManagerComInterface):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>NewTestManager: End Su</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ITestManagerBridge_GetTestManager</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function ITestManagerBridge_GetTestManager() As AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>AccUnit_Integration.ITestManagerComInterface: Set ITestManagerBridge_GetTestManager = TestManager: End Function</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ITestFixture_AddTestCases</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>1</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub ITestFixture_AddTestCases(ByVal Tests As SimplyVBUnit.TestCaseCollector): TestManager.AddTestCases Tests: End Sub</Declaration>
						<Parameters>
							<Parameter>
								<Name>Tests</Name>
								<Type>SimplyVBUnit.TestCaseCollector):</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TearDown</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub TearDown()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheLabelsCenter_AndMovingHorizontalWithinRange_MovesJustHorizontalProperly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheLabelsCenter_AndMovingHorizontalWithinRange_MovesJustHorizontalProperly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheLabelsCenter_AndMovingVerticalWithinRange_MovesJustVerticalProperly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheLabelsCenter_AndMovingVerticalWithinRange_MovesJustVerticalProperly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheLabelsCenter_AndMovingHorizontalBeyondZeroTwice_GivesCorrectNegativeLeft</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> This test is vital for ensuring correct virtual positions when the Access-control has to be clipped</CommentLine>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheLabelsCenter_AndMovingHorizontalBeyondZeroTwice_GivesCorrectNegativeLeft()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheMiddleOfTheRightEdge_AndMovingDiagonal_JustSizesHorizontalProperly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheMiddleOfTheRightEdge_AndMovingDiagonal_JustSizesHorizontalProperly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheMiddleOfTheBottomEdge_AndMovingDiagonal_JustSizesVerticalProperly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheMiddleOfTheBottomEdge_AndMovingDiagonal_JustSizesVerticalProperly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheMiddleOfTheLeftEdge_AndMovingDiagonal_JustSizesHorizontalProperly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheMiddleOfTheLeftEdge_AndMovingDiagonal_JustSizesHorizontalProperly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheMiddleOfTheTopEdge_AndMovingDiagonal_JustSizesVerticalProperly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheMiddleOfTheTopEdge_AndMovingDiagonal_JustSizesVerticalProperly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheBottomRightCorner_AndMovingDiagonalTwice_SizesCorrectly</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheBottomRightCorner_AndMovingDiagonalTwice_SizesCorrectly()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheBottomRightCorner_AndMovingTowardsTheTopLeftCornerBeyondTheSize_KeepsTopLeftCorner</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheBottomRightCorner_AndMovingTowardsTheTopLeftCornerBeyondTheSize_KeepsTopLeftCorner()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheBottomRightCorner_AndMovingTowardsTheTopLeftCornerBeyondTheSizeAndBackAgain_GivesOriginalPosExt</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheBottomRightCorner_AndMovingTowardsTheTopLeftCornerBeyondTheSizeAndBackAgain_GivesOriginalPosExt()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheTopLeftCorner_AndMovingTowardsTheBottomRightCornerBeyondTheSize_KeepsBottomRightCorner</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheTopLeftCorner_AndMovingTowardsTheBottomRightCornerBeyondTheSize_KeepsBottomRightCorner()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheTopLeftCornerOfTheVisiblePortionOfAClippedItem_AndMovingTowardsTheBottomRightCorner_JustMovesItButKeepsTheSize</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheTopLeftCornerOfTheVisiblePortionOfAClippedItem_AndMovingTowardsTheBottomRightCorner_JustMovesItButKeepsTheSize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ClickingInTheItemWhenItIsActuallyReadonly_AndMoving_DoesNotMoveTheItem</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
							<CommentLine> AccUnit:Row(True, False).Name = &quot;The item itself is read-only.&quot;</CommentLine>
							<CommentLine> AccUnit:Row(False, True).Name = &quot;Just the parent is read-only.&quot;</CommentLine>
							<CommentLine> AccUnit:Row(True, True).Name = &quot;Both parent and item are read-only.&quot;</CommentLine>
						</CommentLines>
						<Declaration>Public Sub ClickingInTheItemWhenItIsActuallyReadonly_AndMoving_DoesNotMoveTheItem( ByVal Readonly As Boolean, ByVal ParentReadonly As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Readonly</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>ParentReadonly</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>zTST__PlacementPolicyMock</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>zTST__PlacementPolicyMock</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>12</CountOfDeclarationLines>
				<CountOfLines>64</CountOfLines>
				<Interfaces>
					<Interface>NV_IPlacementPolicy</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Self</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get Self() As zTST__PlacementPolicyMock</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>zTST__PlacementPolicyMock</ReturnType>
					</Procedure>
					<Procedure>
						<Name>OnEveryCallToGetWorldAreaOnDatabindingReturn</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub OnEveryCallToGetWorldAreaOnDatabindingReturn(ByVal Area As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Area</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>On1stCallToGetWorldAreaOnDatabindingReturn</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub On1stCallToGetWorldAreaOnDatabindingReturn(ByVal Area As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Area</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>On2ndCallToGetWorldAreaOnDatabindingReturn</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub On2ndCallToGetWorldAreaOnDatabindingReturn(ByVal Area As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Area</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>On3rdCallToGetWorldAreaOnDatabindingReturn</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub On3rdCallToGetWorldAreaOnDatabindingReturn(ByVal Area As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Area</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>CallCount</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get CallCount() As Integer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Integer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_GetWorldAreaOnDatabinding</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IPlacementPolicy_GetWorldAreaOnDatabinding(ByVal OriginalWorldArea As NV_WorldRectangle) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>OriginalWorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IPlacementPolicy_WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IPlacementPolicy_WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IPlacementPolicy_ResetLayout</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IPlacementPolicy_ResetLayout()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>CalledResetLayout</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get CalledResetLayout() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>Log_Logger</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>Log_Logger</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>18</CountOfDeclarationLines>
				<CountOfLines>443</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Initialize/Terminate ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsLoggingToDebugWindowEnabled</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Public Members ___</CommentLine>
						</CommentLines>
						<Declaration>Public Property Let IsLoggingToDebugWindowEnabled(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsLoggingToDebugWindowEnabled</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get IsLoggingToDebugWindowEnabled() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>IsEnabled</Name>
						<Scope>Public</Scope>
						<Type>PropertyLet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Let IsEnabled(ByVal Value As Boolean)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>IsEnabled</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get IsEnabled() As Boolean</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Boolean</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WriteLine</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub WriteLine(ByVal Message As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Message</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LogError</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>9</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LogError(ByVal Error As VBA.ErrObject)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Error</Name>
								<Type>VBA.ErrObject</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LogClassInitialize</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LogClassInitialize(ByVal Object As Object, Optional ByVal LifetimeMode As LifetimeMode = LifetimeMode.ShortLiving)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Object</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>LifetimeMode.ShortLiving</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LogClassTerminate</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub LogClassTerminate(ByVal Object As Object)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Object</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>ResetCounters</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Sub ResetCounters()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>TypeCount</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get TypeCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>PendingInstanceCount</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get PendingInstanceCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TypeInfos</Name>
						<Scope>Public</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>16</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Property Get TypeInfos(ByVal LifetimeMode As LifetimeMode) As VBA.Collection</Declaration>
						<Parameters>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>VBA.Collection</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetTypeReport</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GetTypeReport(Optional ByVal Mode As TypeReportingMode = TypeReportingMode.Verbose) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Mode</Name>
								<Type>TypeReportingMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>TypeReportingMode.Verbose</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetSpecialTypeReport</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>46</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GetSpecialTypeReport(ByVal LifetimeMode As LifetimeMode, ByVal Mode As TypeReportingMode) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mode</Name>
								<Type>TypeReportingMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetFooter</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>4</CountOfDeclarationLines>
						<CountOfLines>23</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetFooter(ByVal LifetimeMode As LifetimeMode, ByVal Counter As Long, ByVal CurrentInstancesCount As Long, ByVal TotalInstancesCount As Long) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Counter</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>CurrentInstancesCount</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>TotalInstancesCount</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>FormatTypeInfoLine</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function FormatTypeInfoLine(ByVal Counter As Long, ByVal TypeInfo As Log_TypeInfo) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Counter</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>TypeInfo</Name>
								<Type>Log_TypeInfo</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>FormatTypeReportLine</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>4</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function FormatTypeReportLine(ByVal CounterText As String, ByVal CurrentInstancesText As String, ByVal TotalInstancesText As String, ByVal MaximumSimultaneousInstancesText As String) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>CounterText</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>CurrentInstancesText</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>TotalInstancesText</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>MaximumSimultaneousInstancesText</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>WriteLineInternal</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
							<CommentLine> ___ Private Members ___</CommentLine>
						</CommentLines>
						<Declaration>Private Sub WriteLineInternal(ByVal Message As String, Optional ByVal Prefix As String = &quot; &quot;, Optional ByVal IndentLevel As Integer = -1)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Message</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Prefix</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>&quot; &quot;</DefaultValue>
							</Parameter>
							<Parameter>
								<Name>IndentLevel</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>-1</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WriteLineInParts</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub WriteLineInParts(ByVal Prefix As String, ByVal Indent As String, ByVal Message As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Prefix</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Indent</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Message</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>WriteLineRaw</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub WriteLineRaw(ByVal line As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>line</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>LogObjectLifetime</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub LogObjectLifetime(ByVal Prefix As String, ByVal InstanceInfo As Log_InstanceInfo, ByVal Text As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Prefix</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>InstanceInfo</Name>
								<Type>Log_InstanceInfo</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Text</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterInstance</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>20</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub RegisterInstance(ByVal Object As Object, ByVal LifetimeMode As LifetimeMode)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Object</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>RegisterType</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub RegisterType(ByVal TypeName As String, ByVal LifetimeMode As LifetimeMode)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TypeName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>AddType</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub AddType(ByVal TypeName As String, ByVal LifetimeMode As LifetimeMode)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TypeName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UnregisterInstance</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>20</CountOfLines>
						<CommentLines>
							<CommentLine> Note: no error handling since unregistering an instance can occur on cleaning up</CommentLine>
							<CommentLine>On Error GoTo Exit_</CommentLine>
						</CommentLines>
						<Declaration>Private Sub UnregisterInstance(ByVal Object As Object)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Object</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UnregisterType</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UnregisterType(ByVal TypeName As String)</Declaration>
						<Parameters>
							<Parameter>
								<Name>TypeName</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetObjectKey</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetObjectKey(ByVal Object As Object) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Object</Name>
								<Type>Object</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Indent</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Indent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Unindent</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Unindent()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>CurrentIndentation</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get CurrentIndentation() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetIndentation</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetIndentation(ByVal IndentLevel As Integer) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>IndentLevel</Name>
								<Type>Integer</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetHeader</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetHeader() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetSeparatorLine</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetSeparatorLine() As String</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>PadLeft</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function PadLeft(ByVal Info As String, ByVal Length As Byte, Optional ByVal PadWith As String = &quot; &quot;) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>Info</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Length</Name>
								<Type>Byte</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>PadWith</Name>
								<Type>String</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>&quot; &quot;</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Setup</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Setup()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetLifetimeModeAsString</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetLifetimeModeAsString(ByVal LifetimeMode As LifetimeMode) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetSpecialCompactTypeReport</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>43</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function GetSpecialCompactTypeReport(ByVal LifetimeMode As LifetimeMode) As String</Declaration>
						<Parameters>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>String</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetSpecialPendingInstanceCount</Name>
						<Scope>Public</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>12</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Public Function GetSpecialPendingInstanceCount(ByVal LifetimeMode As LifetimeMode) As Long</Declaration>
						<Parameters>
							<Parameter>
								<Name>LifetimeMode</Name>
								<Type>LifetimeMode</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_DeviceWorldTransformer_RightDown</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_DeviceWorldTransformer_RightDown</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>9</CountOfDeclarationLines>
				<CountOfLines>184</CountOfLines>
				<Interfaces>
					<Interface>NV_IDeviceWorldTransformer</Interface>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>MeAsTransformer</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get MeAsTransformer() As NV_IDeviceWorldTransformer</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_IDeviceWorldTransformer</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Orientation</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_Orientation() As OrientationEnum</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>OrientationEnum</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>5</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_Initialize(ByVal DeviceDefinitionArea As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>DeviceDefinitionArea</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_WorldDefinitionArea(ByVal Value As NV_WorldRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_WorldDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_WorldDefinitionArea() As NV_WorldRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertySet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Set NV_IDeviceWorldTransformer_DeviceDefinitionArea(ByVal Value As NV_DeviceRectangle)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>NV_DeviceRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_DeviceDefinitionArea</Name>
						<Scope>Private</Scope>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Property Get NV_IDeviceWorldTransformer_DeviceDefinitionArea() As NV_DeviceRectangle</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_SetWorldForUniformTransformation</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>15</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub NV_IDeviceWorldTransformer_SetWorldForUniformTransformation()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>UpdateParameters</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>10</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub UpdateParameters()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>GetPositiveMappingParams</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>11</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL?</CommentLine>
						</CommentLines>
						<Declaration>Private Function GetPositiveMappingParams(ByVal WorldAxis As NV_WorldPosExt, ByVal DeviceAxis As NV_DevicePosExt) As NV_MappingParams</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldAxis</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>DeviceAxis</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_MappingParams</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformDeviceVectorToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDeviceToWorld</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>14</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformDeviceToWorld(ByVal HorizontalPosExt As NV_DevicePosExt, ByVal VerticalVirtualPosExt As NV_DevicePosExt, ByVal Normalize As Boolean) As NV_WorldRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>HorizontalPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>VerticalVirtualPosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformDevicePosExt</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>17</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL</CommentLine>
						</CommentLines>
						<Declaration>Private Function TransformDevicePosExt(ByVal DevicePosExt As NV_DevicePosExt, ByVal Mapping As NV_MappingParams, ByVal Normalize As Boolean) As NV_WorldPosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>DevicePosExt</Name>
								<Type>NV_DevicePosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_WorldPosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>Transform</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function Transform(ByVal Value As Double, ByVal Mapping As NV_MappingParams) As Double</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>NV_IDeviceWorldTransformer_TransformWorldVectorToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function NV_IDeviceWorldTransformer_TransformWorldVectorToDevice(ByVal WorldArea As NV_WorldRectangle) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldToDevice</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>2</CountOfDeclarationLines>
						<CountOfLines>13</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformWorldToDevice(ByVal WorldArea As NV_WorldRectangle, ByVal Normalize As Boolean) As NV_DeviceRectangle</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldArea</Name>
								<Type>NV_WorldRectangle</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DeviceRectangle</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformWorldPosExt</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>3</CountOfDeclarationLines>
						<CountOfLines>18</CountOfLines>
						<CommentLines>
							<CommentLine> SPECIAL</CommentLine>
						</CommentLines>
						<Declaration>Private Function TransformWorldPosExt(ByVal WorldPosExt As NV_WorldPosExt, ByVal Mapping As NV_MappingParams, Optional ByVal Normalize As Boolean = True) As NV_DevicePosExt</Declaration>
						<Parameters>
							<Parameter>
								<Name>WorldPosExt</Name>
								<Type>NV_WorldPosExt</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Normalize</Name>
								<Type>Boolean</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>True</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue>True</DefaultValue>
							</Parameter>
						</Parameters>
						<ReturnType>NV_DevicePosExt</ReturnType>
					</Procedure>
					<Procedure>
						<Name>TransformInverse</Name>
						<Scope>Private</Scope>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>6</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Function TransformInverse(ByVal Value As Double, ByVal Mapping As NV_MappingParams) As Double</Declaration>
						<Parameters>
							<Parameter>
								<Name>Value</Name>
								<Type>Double</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>Mapping</Name>
								<Type>NV_MappingParams</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>Double</ReturnType>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>_Documentation</Name>
			<FileName/>
			<PathFileName/>
			<Type>StdModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>_Documentation</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>43</CountOfDeclarationLines>
				<CountOfLines>43</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
				</Procedures>
				<CommentLines>
					<CommentLine> Semantics:</CommentLine>
					<CommentLine>                 World          Device</CommentLine>
					<CommentLine> 1st axis        v (Value)      x</CommentLine>
					<CommentLine> 2nd axis        r (Position2)     y</CommentLine>
					<CommentLine> Device</CommentLine>
					<CommentLine> ======</CommentLine>
					<CommentLine/>
					<CommentLine> 1st axis</CommentLine>
					<CommentLine> --------</CommentLine>
					<CommentLine> Name: Horizontal axis</CommentLine>
					<CommentLine> Symbol: x</CommentLine>
					<CommentLine> Physical orientation: horizontal left to right</CommentLine>
					<CommentLine> Name of the position: Left</CommentLine>
					<CommentLine> Name of the extent:   Width</CommentLine>
					<CommentLine/>
					<CommentLine> 2nd axis</CommentLine>
					<CommentLine> --------</CommentLine>
					<CommentLine> Name: Vertical axis</CommentLine>
					<CommentLine> Symbol: y</CommentLine>
					<CommentLine> Physical orientation: vertical top to bottom</CommentLine>
					<CommentLine> Name of the position: Top</CommentLine>
					<CommentLine> Name of the extent:   Height</CommentLine>
					<CommentLine> World</CommentLine>
					<CommentLine> =====</CommentLine>
					<CommentLine/>
					<CommentLine> 1st axis</CommentLine>
					<CommentLine> --------</CommentLine>
					<CommentLine> Name: Axis 1</CommentLine>
					<CommentLine> Symbol: a1</CommentLine>
					<CommentLine> Physical orientation: none (perpendicular to Axis 2)</CommentLine>
					<CommentLine> Name of the position: Position1</CommentLine>
					<CommentLine> Name of the extent:   Extent1</CommentLine>
					<CommentLine/>
					<CommentLine> 2nd axis</CommentLine>
					<CommentLine> --------</CommentLine>
					<CommentLine> Name: Axis 2</CommentLine>
					<CommentLine> Symbol: a2</CommentLine>
					<CommentLine> Physical orientation: none (perpendicular to Axis 1)</CommentLine>
					<CommentLine> Name of the position: Position2</CommentLine>
					<CommentLine> Name of the extent:   Extent2</CommentLine>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_ItemFormatter</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_ItemFormatter</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>1</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>6</CountOfDeclarationLines>
				<CountOfLines>21</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>Class_Initialize</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>4</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Initialize()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Class_Terminate</Name>
						<Scope>Private</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Private Sub Class_Terminate()</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType/>
					</Procedure>
					<Procedure>
						<Name>Format</Name>
						<Scope>Public</Scope>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>8</CountOfLines>
						<CommentLines>
							<CommentLine> By now</CommentLine>
						</CommentLines>
						<Declaration>Public Sub Format(ByVal Label As Access.Label, ByVal SubFormat As ItemSubFormat)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Label</Name>
								<Type>Access.Label</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
							<Parameter>
								<Name>SubFormat</Name>
								<Type>ItemSubFormat</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
		<File>
			<Name>NV_IItemManager</Name>
			<FileName/>
			<PathFileName/>
			<Type>ClassModule</Type>
			<Properties>
				<Property>
					<Name>Name</Name>
					<Value>NV_IItemManager</Value>
				</Property>
				<Property>
					<Name>Instancing</Name>
					<Value>2</Value>
				</Property>
			</Properties>
			<CodeModule>
				<CountOfDeclarationLines>2</CountOfDeclarationLines>
				<CountOfLines>17</CountOfLines>
				<Interfaces>
				</Interfaces>
				<Events>
				</Events>
				<Procedures>
					<Procedure>
						<Name>AddItem</Name>
						<Scope/>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Function AddItem(ByVal Id As Variant) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Id</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetItemById</Name>
						<Scope/>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Function GetItemById(ByVal Id As Variant) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Id</Name>
								<Type>Variant</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>ItemCount</Name>
						<Scope/>
						<Type>PropertyGet</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Property Get ItemCount() As Long</Declaration>
						<Parameters>
						</Parameters>
						<ReturnType>Long</ReturnType>
					</Procedure>
					<Procedure>
						<Name>GetItemByOrdinal</Name>
						<Scope/>
						<Type>Function</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Function GetItemByOrdinal(ByVal Index As Long) As NV_Item</Declaration>
						<Parameters>
							<Parameter>
								<Name>Index</Name>
								<Type>Long</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType>NV_Item</ReturnType>
					</Procedure>
					<Procedure>
						<Name>RemoveItem</Name>
						<Scope/>
						<Type>Subroutine</Type>
						<CountOfDeclarationLines>1</CountOfDeclarationLines>
						<CountOfLines>3</CountOfLines>
						<CommentLines>
						</CommentLines>
						<Declaration>Sub RemoveItem(ByVal Item As NV_Item)</Declaration>
						<Parameters>
							<Parameter>
								<Name>Item</Name>
								<Type>NV_Item</Type>
								<IsByVal>True</IsByVal>
								<IsOptional>False</IsOptional>
								<IsParamArray>False</IsParamArray>
								<DefaultValue/>
							</Parameter>
						</Parameters>
						<ReturnType/>
					</Procedure>
				</Procedures>
				<CommentLines>
				</CommentLines>
			</CodeModule>
		</File>
	</Files>
</Project>
